added create player option to main menu

2019-09-09 10:51:32 -04:00
parent 6b73e367e4
commit d5d08aa0f7
5 changed files with 17 additions and 1 deletions
--- a/src/Mtlstats/Control.hs
+++ b/src/Mtlstats/Control.hs
@@ -53,6 +53,7 @@ dispatch s = case s^.progMode of
    | null $ gs^.overtimeFlag -> overtimeFlagC
    | not $ gs^.dataVerified  -> verifyDataC
    | otherwise               -> reportC
+  CreatePlayer _ -> undefined

 mainMenuC :: Controller
 mainMenuC = Controller