gistfile1.txt

-- run a full game turn, ie pre-turn, player turn, enemy turn, post-turn.
-- Currently, only the player exists.                                    
fullGameTurn :: (Action) -> GameState -> GameState                       
fullGameTurn action gs                                                   
                                                                         
        -- Player hasn't spent turn - free action or invalid             
        | not (result^.costsTurn)   = result^.gameState                  
                                                                         
        -- Player has spent turn - normal action completed               
        -- TODO: this is where to run enemy turns, etc                   
        | result^.costsTurn         = result^.gameState                  
                                                                         
        where result = playerTurn action gs