refactored game entry control flow

2019-11-23 01:13:17 -05:00
parent f1f7077c8c
commit 8795cb46a9
5 changed files with 60 additions and 97 deletions
--- a/src/Mtlstats/Control.hs
+++ b/src/Mtlstats/Control.hs
@@ -43,7 +43,7 @@ dispatch :: ProgState -> Controller
 dispatch s = case s^.progMode of
  MainMenu  -> mainMenuC
  NewSeason -> newSeasonC
-  NewGame _ -> newGameC s
+  NewGame gs -> newGameC gs
  CreatePlayer cps
    | null $ cps^.cpsNumber   -> getPlayerNumC
    | null $ cps^.cpsName     -> getPlayerNameC