added create player option to main menu

src/Mtlstats/Actions.hs

@@ -30,6 +30,7 @@ module Mtlstats.Actions
   , overtimeCheck
   , updateGameStats
   , validateGameDate
+  , createPlayer
   ) where
 
 import Data.Maybe (fromMaybe)
@@ -111,3 +112,7 @@ validateGameDate s = fromMaybe s $ do
       .  (gameMonth .~ Nothing)
       .  (gameDay   .~ Nothing)
     else s
+
+-- | Starts player creation mode
+createPlayer :: ProgState -> ProgState
+createPlayer = progMode .~ CreatePlayer newCreatePlayerState

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

src/Mtlstats/Menu.hs

@@ -60,7 +60,9 @@ mainMenu = Menu "*** MAIN MENU ***" True
     modify startNewSeason >> return True
   , MenuItem '2' "New Game" $
     modify startNewGame >> return True
-  , MenuItem '3' "Exit" $
+  , MenuItem '3' "Create Player" $
+    modify createPlayer >> return True
+  , MenuItem '4' "Exit" $
     return False
   ]
 

src/Mtlstats/Types.hs

@@ -164,6 +164,7 @@ data ProgMode
   = MainMenu
   | NewSeason
   | NewGame GameState
+  | CreatePlayer CreatePlayerState
   deriving (Eq, Show)
 
 -- | The game state