added goalie creation to main menu

2019-10-25 00:37:14 -04:00
parent e94bf59c81
commit 67bb12920c
3 changed files with 24 additions and 6 deletions
--- a/src/Mtlstats/Menu.hs
+++ b/src/Mtlstats/Menu.hs
@@ -71,7 +71,9 @@ mainMenu = Menu "*** MAIN MENU ***" True
    modify startNewGame >> return True
  , MenuItem '3' "Create Player" $
    modify createPlayer >> return True
-  , MenuItem '4' "Exit" $ do
+  , MenuItem '4' "Create Goalie" $
+    modify createGoalie >> return True
+  , MenuItem '5' "Exit" $ do
    db <- gets $ view database
    liftIO $ do
      dir <- getAppUserDataDirectory appName