freeGameState :: GameState -> AppState -> AppState
freeGameState gameState follower = NoGUIAppState $ io $ do
    stopGameBackgroundMusic
    postGUI $ fmapM_ freeObject (scene gameState ^. objects)
    freeSpace $ cmSpace gameState
    return follower
freeGameState :: GameState -> AppState -> AppState
freeGameState gameState follower = NoGUIAppState $ io $ do
    stopGameBackgroundMusic
    postGUI $ fmapM_ freeObject (scene gameState ^. objects)
    freeSpace $ cmSpace gameState
    return follower
freeGameState gameState follower = NoGUIAppState $ io $ do
    stopGameBackgroundMusic
    postGUI $ fmapM_ freeObject (scene gameState ^. objects)
    freeSpace $ cmSpace gameState
    return follower