bumping types around
This commit is contained in:
parent
f5353c5de2
commit
b945cc1fb6
|
@ -14,20 +14,24 @@ import Types.Subsystems
|
||||||
|
|
||||||
data GameData = GameData
|
data GameData = GameData
|
||||||
{ gameState :: TVar State
|
{ gameState :: TVar State
|
||||||
, gameCurrentLevel :: Tvar Level
|
-- , gameCurrentLevel :: Tvar Level
|
||||||
, gameSubsystems :: Subsystems
|
, gameSubsystems :: Subsystems
|
||||||
, gameActionTranslation :: TVar ActionTranslation
|
, gameActionTranslation :: TVar ActionTranslation
|
||||||
, gameEnded :: TVar Bool
|
, gameEnded :: TVar Bool
|
||||||
}
|
}
|
||||||
|
|
||||||
data State
|
data State
|
||||||
= Running
|
= Loading
|
||||||
| Paused
|
| Menu MenuState
|
||||||
deriving (Enum, Eq, Show)
|
| MainGame Level
|
||||||
|
deriving (Eq, Show)
|
||||||
|
|
||||||
|
data MenuState
|
||||||
|
= MenuMain
|
||||||
|
| MenuSettings
|
||||||
|
|
||||||
data Level
|
data Level
|
||||||
= MainMenu
|
= DNAMenu
|
||||||
| DNAMenu
|
|
||||||
| Sewer01
|
| Sewer01
|
||||||
| Sewer02
|
| Sewer02
|
||||||
| Sewer03
|
| Sewer03
|
||||||
|
|
Loading…
Reference in New Issue