fixed new season menu

- use 'R' and 'P' instead of '1' and '2'
This commit is contained in:
Jonathan Lamothe 2019-11-14 11:54:59 -05:00
parent 4d6c3faf5e
commit 01a4141ff4

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
]