Browse Source

bumping types around

master
nek0 1 year ago
parent
commit
b945cc1fb6
  1. 16
      src/Types/Application.hs

16
src/Types/Application.hs

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

Loading…
Cancel
Save