logic branch for database saving on new season

2020-01-14 02:42:30 -05:00
parent 3b4ce50ae8
commit 2bf8d15bd4
4 changed files with 18 additions and 14 deletions
--- a/src/Mtlstats/Types.hs
+++ b/src/Mtlstats/Types.hs
@@ -232,7 +232,7 @@ data ProgState = ProgState
 -- | The program mode
 data ProgMode
  = MainMenu
-  | NewSeason
+  | NewSeason Bool
  | NewGame GameState
  | EditMenu
  | CreatePlayer CreatePlayerState
@@ -242,7 +242,7 @@ data ProgMode

 instance Show ProgMode where
  show MainMenu         = "MainMenu"
-  show NewSeason        = "NewSeason"
+  show (NewSeason _)    = "NewSeason"
  show (NewGame _)      = "NewGame"
  show EditMenu         = "EditMenu"
  show (CreatePlayer _) = "CreatePlayer"