-- Resets a game state, maintaining the random seed
resetGameState :: State -> State
resetGameState s = initialGameState {randomSeed = (randomSeed s)}
resetGameState :: State -> State
resetGameState s = initialGameState {randomSeed = (randomSeed s)}
resetGameState s = initialGameState {randomSeed = (randomSeed s)}