From fd9ffd5220cec0fc6c74b174724ffc4f424eebb4 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Thu, 22 Aug 2019 16:48:30 -0400 Subject: [PATCH] display game type menu --- src/Mtlstats/UI.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Mtlstats/UI.hs b/src/Mtlstats/UI.hs index 7ec5be2..56cf86a 100644 --- 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