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
{ gameState :: TVar State
, gameCurrentLevel :: Tvar Level
-- , gameCurrentLevel :: Tvar Level
, gameSubsystems :: Subsystems
, gameActionTranslation :: TVar ActionTranslation
, gameEnded :: TVar Bool
}
data State
= Running
| Paused
deriving (Enum, Eq, Show)
= Loading
| Menu MenuState
| MainGame Level
deriving (Eq, Show)
data MenuState
= MenuMain
| MenuSettings
data Level
= MainMenu
| DNAMenu
= DNAMenu
| Sewer01
| Sewer02
| Sewer03