added title screen logic branch

2020-01-21 22:20:01 -05:00
parent be9d7d80bb
commit 45aea607b2
3 changed files with 33 additions and 2 deletions
--- a/src/Mtlstats/Types.hs
+++ b/src/Mtlstats/Types.hs
@@ -236,7 +236,8 @@ data ProgState = ProgState

 -- | The program mode
 data ProgMode
-  = MainMenu
+  = TitleScreen
+  | MainMenu
  | NewSeason Bool
  | NewGame GameState
  | EditMenu
@@ -247,6 +248,7 @@ data ProgMode
  | EditStandings EditStandingsMode

 instance Show ProgMode where
+  show TitleScreen       = "TitleScreen"
  show MainMenu          = "MainMenu"
  show (NewSeason _)     = "NewSeason"
  show (NewGame _)       = "NewGame"
@@ -760,7 +762,7 @@ esmSubModeL = lens
 newProgState :: ProgState
 newProgState = ProgState
  { _database     = newDatabase
-  , _progMode     = MainMenu
+  , _progMode     = TitleScreen
  , _inputBuffer  = ""
  , _scrollOffset = 0
  }