bumping types around

This commit is contained in:
nek0 2020-09-22 14:07:13 +02:00
parent f5353c5de2
commit b945cc1fb6
1 changed files with 10 additions and 6 deletions

View File

@ -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