modeSelection :: IO ()
modeSelection = let formatted = indent . padRight <$> gameModeNames
                in printText $ "- Choose a game mode -"
                             : divider
                             : formatted
modeSelection :: IO ()
modeSelection = let formatted = indent . padRight <$> gameModeNames
                in printText $ "- Choose a game mode -"
                             : divider
                             : formatted
modeSelection = let formatted = indent . padRight <$> gameModeNames
                in printText $ "- Choose a game mode -"
                             : divider
                             : formatted