commit
95853f8bd7
|
@ -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
|
||||||
]
|
]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user