reset game standings on new season

2019-11-14 11:21:52 -05:00
parent b830947d6c
commit e6e28618a3
3 changed files with 50 additions and 5 deletions
--- a/src/Mtlstats/Menu.hs
+++ b/src/Mtlstats/Menu.hs
@@ -119,11 +119,13 @@ mainMenu = Menu "*** MAIN MENU ***" True
 -- | The new season menu
 newSeasonMenu :: Menu ()
 newSeasonMenu = Menu "*** SEASON TYPE ***" ()
-  [ MenuItem '1' "Regular Season" $ do
-    modify resetYtd
-    modify startNewGame
-  , MenuItem '2' "Playoffs" $
-    modify startNewGame
+  [ MenuItem '1' "Regular Season" $ modify
+    $ resetYtd
+    . resetStandings
+    . startNewGame
+  , MenuItem '2' "Playoffs" $ modify
+    $ resetStandings
+    . startNewGame
  ]

 -- | Requests the month in which the game took place