Work on debugging

2023-04-27 11:35:48 +01:00
parent 35990c53bf
commit 9972e0fdea
17 changed files with 39 additions and 28 deletions
@@ -45,21 +45,15 @@ data Universe = Universe

 data DebugItem = DebugItem
    { _debugPic :: Picture
-    , _debugInfo :: [DebugMessage]
+    , _debugMessage :: [String]
+    , _debugInfo :: DebugInfo
    }

-data DebugMessage
-    = DebugSimpleMessage
-        { _debugMessage :: [String]
-        }
-    | DebugWorldPosMessage
-        { _debugWorldPos :: V3 Float
-        , _debugMessage :: [String]
-        }
-    | DebugScreenPosMessage
-        { _debugScreenPos :: V2 Float
-        , _debugMessage :: [String]
-        }
+data DebugInfo
+    = NoDebugInfo
+    | DebugV3 { _debugV3 :: V3 Float}
+    | DebugV2 { _debugV2 :: V2 Float}
+    | DebugMInt { _debugMInt :: Maybe Int}

 data SideEffect
    = NewSideEffect