moved ProgMode
This commit is contained in:
parent
4891605089
commit
be5d10b6fd
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user