Refactored Main.hs a bit.  This included turning a lambda into saveNewState, making the call to drawGameState pointfree, and intruducing a FreeGameState type instead of using a tuple for the StateT.