cleanUp :: App -> IO ()
cleanUp app = do
  -- mapM_ (SDL.freeSurface.snd) $ appImages app
  fontQuit
  SDLm.closeAudio
  screenQuit
cleanUp :: App -> IO ()
cleanUp app = do
  -- mapM_ (SDL.freeSurface.snd) $ appImages app
  fontQuit
  SDLm.closeAudio
  screenQuit
cleanUp app = do
  -- mapM_ (SDL.freeSurface.snd) $ appImages app
  fontQuit
  SDLm.closeAudio
  screenQuit