Merge pull request #38 from mtlstats/season-menu

fixed new season menu
This commit is contained in:
Jonathan Lamothe 2019-11-14 12:06:06 -05:00 committed by GitHub
commit 95853f8bd7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -119,11 +119,11 @@ mainMenu = Menu "*** MAIN MENU ***" True
-- | The new season menu
newSeasonMenu :: Menu ()
newSeasonMenu = Menu "*** SEASON TYPE ***" ()
[ MenuItem '1' "Regular Season" $ modify
[ MenuItem 'R' "Regular Season" $ modify
$ resetYtd
. resetStandings
. startNewGame
, MenuItem '2' "Playoffs" $ modify
, MenuItem 'P' "Playoffs" $ modify
$ resetStandings
. startNewGame
]