display game type menu
This commit is contained in:
parent
4d158a28db
commit
fd9ffd5220
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user