diff --git a/src/Types/Application.hs b/src/Types/Application.hs index 8063223..39bb576 100644 --- a/src/Types/Application.hs +++ b/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