added "Edit Player" to main menu

2019-11-01 04:00:29 -04:00
parent cb4fc77dd6
commit 5fd67f3802
4 changed files with 16 additions and 1 deletions
--- a/src/Mtlstats/Menu.hs
+++ b/src/Mtlstats/Menu.hs
@@ -73,7 +73,9 @@ mainMenu = Menu "*** MAIN MENU ***" True
    modify createPlayer >> return True
  , MenuItem '4' "Create Goalie" $
    modify createGoalie >> return True
-  , MenuItem '5' "Exit" $ do
+  , MenuItem '5' "Edit Player" $
+    modify editPlayer >> return True
+  , MenuItem '6' "Exit" $ do
    db <- gets $ view database
    liftIO $ do
      dir <- getAppUserDataDirectory appName