display game type menu
This commit is contained in:
1 parent
4d158a28db
commit
fd9ffd5220
1 file changed
+3
-1
+3
-1
@@ -36,5 +36,7 @@ draw s = do
|
|||||||
case s ^. progMode of
|
case s ^. progMode of
|
||||||
MainMenu -> drawMenu mainMenu
|
MainMenu -> drawMenu mainMenu
|
||||||
NewSeason -> drawMenu newSeasonMenu
|
NewSeason -> drawMenu newSeasonMenu
|
||||||
NewGame _ -> return ()
|
NewGame gs -> if null $ gs ^. gameType
|
||||||
|
then drawMenu gameTypeMenu
|
||||||
|
else undefined
|
||||||
C.render
|
C.render
|
||||||
Reference in new issue
Block a user