From b945cc1fb6e426f13a8a66729c8454e0d9d19195 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 22 Sep 2020 14:07:13 +0200 Subject: [PATCH] bumping types around --- src/Types/Application.hs | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) 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