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 -- | 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
] ]