display game type menu

2019-08-22 16:48:30 -04:00
parent 4d158a28db
commit fd9ffd5220
1 changed files with 3 additions and 1 deletions
--- a/src/Mtlstats/UI.hs
+++ b/src/Mtlstats/UI.hs
@@ -36,5 +36,7 @@ draw s = do
    case s ^. progMode of
      MainMenu  -> drawMenu mainMenu
      NewSeason -> drawMenu newSeasonMenu
-      NewGame _ -> return ()
+      NewGame gs -> if null $ gs ^. gameType
+        then drawMenu gameTypeMenu
+        else undefined
  C.render