added create player option to main menu

2019-09-09 10:51:32 -04:00
parent 6b73e367e4
commit d5d08aa0f7
5 changed files with 17 additions and 1 deletions
--- a/src/Mtlstats/Menu.hs
+++ b/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
  ]