added edit menu to main menu

src/Mtlstats/Actions.hs

@@ -30,6 +30,7 @@ module Mtlstats.Actions
   , removeChar
   , createPlayer
   , createGoalie
+  , edit
   , editPlayer
   , editGoalie
   , addPlayer
@@ -97,6 +98,10 @@ createGoalie = let
     & cgsFailureCallback .~ callback
   in progMode .~ CreateGoalie cgs
 
+-- | Launches the edit menu
+edit :: ProgState -> ProgState
+edit = undefined
+
 -- | Starts the player editing process
 editPlayer :: ProgState -> ProgState
 editPlayer = progMode .~ EditPlayer newEditPlayerState

src/Mtlstats/Menu.hs

@@ -118,10 +118,8 @@ mainMenu = Menu "*** MAIN MENU ***" True
     modify createPlayer >> return True
   , MenuItem '4' "Create Goalie" $
     modify createGoalie >> return True
-  , MenuItem '5' "Edit Player" $
+  , MenuItem '5' "Edit" $
-    modify editPlayer >> return True
+    modify edit >> return True
-  , MenuItem '6' "Edit Goalie" $
-    modify editGoalie >> return True
   , MenuItem 'X' "Exit" $ do
     db <- gets $ view database
     liftIO $ do