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 -- | The new season menu
newSeasonMenu :: Menu () newSeasonMenu :: Menu ()
newSeasonMenu = Menu "*** SEASON TYPE ***" () newSeasonMenu = Menu "*** SEASON TYPE ***" ()
[ MenuItem '1' "Regular Season" $ modify [ MenuItem 'R' "Regular Season" $ modify
$ resetYtd $ resetYtd
. resetStandings . resetStandings
. startNewGame . startNewGame
, MenuItem '2' "Playoffs" $ modify , MenuItem 'P' "Playoffs" $ modify
$ resetStandings $ resetStandings
. startNewGame . startNewGame
] ]