bumping types around

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