added "Edit Goalie" to main menu

src/Mtlstats/Actions.hs

@@ -30,6 +30,7 @@ module Mtlstats.Actions
   , createPlayer
   , createGoalie
   , editPlayer
+  , editGoalie
   , addPlayer
   , addGoalie
   , resetCreatePlayerState
@@ -93,6 +94,10 @@ createGoalie = let
 editPlayer :: ProgState -> ProgState
 editPlayer = progMode .~ EditPlayer newEditPlayerState
 
+-- | Starts the 'Goalie' editing process
+editGoalie :: ProgState -> ProgState
+editGoalie = undefined
+
 -- | Adds the entered player to the roster
 addPlayer :: ProgState -> ProgState
 addPlayer s = fromMaybe s $ do

src/Mtlstats/Menu.hs

@@ -104,7 +104,9 @@ mainMenu = Menu "*** MAIN MENU ***" True
     modify createGoalie >> return True
   , MenuItem '5' "Edit Player" $
     modify editPlayer >> return True
-  , MenuItem '6' "Exit" $ do
+  , MenuItem '6' "Edit Goalie" $
+    modify editGoalie >> return True
+  , MenuItem 'X' "Exit" $ do
     db <- gets $ view database
     liftIO $ do
       dir <- getAppUserDataDirectory appName