moved ProgMode

This commit is contained in:
Jonathan Lamothe 2019-09-07 11:33:03 -04:00
parent 4891605089
commit be5d10b6fd

View File

@ -26,8 +26,8 @@ module Mtlstats.Types (
Controller (..),
Action,
ProgState (..),
GameState (..),
ProgMode (..),
GameState (..),
GameType (..),
Database (..),
Player (..),
@ -152,6 +152,13 @@ data ProgState = ProgState
-- ^ Buffer for user input
} deriving (Eq, Show)
-- | The program mode
data ProgMode
= MainMenu
| NewSeason
| NewGame GameState
deriving (Eq, Show)
-- | The game state
data GameState = GameState
{ _gameYear :: Maybe Int
@ -174,13 +181,6 @@ data GameState = GameState
-- ^ Set to 'True' when the user confirms the entered data
} deriving (Eq, Show)
-- | The program mode
data ProgMode
= MainMenu
| NewSeason
| NewGame GameState
deriving (Eq, Show)
-- | The type of game
data GameType
= HomeGame