saveLoop :: Config -> GameState -> Window -> [Position] -> MenuGameState -> String -> Curses()
saveLoop cnfg st w legal menuGameState s = do
    updateWindow w $ do
        moveCursor 21 0
        drawString s
    render
    ev <- getEvent w Nothing
    case ev of
        Nothing -> saveLoop cnfg st w legal menuGameState s
        Just ev'
            | ev' == (EventCharacter '\n') -> do -- TODO: change to include other returns?
                liftIO (save s st)
                menuGameLoop cnfg st w legal menuGameState
            | isCharFromKey ev' -> saveLoop cnfg st w legal menuGameState (s ++ [getCharFromKey ev'])
            | otherwise -> saveLoop cnfg st w legal menuGameState s