(broken) commit

src/Dodge/Data/Universe.hs

@@ -13,6 +13,7 @@ module Dodge.Data.Universe (
     module Loop.Data,
 ) where
 
+import qualified Data.Map.Strict as M
 import GHC.Word (Word32)
 import Dodge.Data.SelectionList
 import Control.Lens
@@ -39,15 +40,23 @@ data Universe = Universe
     , _uvLastFrameTicks :: Word32
     , _uvFrameTicks :: Word32
     , _uvRAMSave :: Maybe World
-    , _uvDebugInfo :: [DebugInfo]
+    , _uvDebug :: M.Map DebugBool DebugItem
     }
 
-data DebugInfo
-    = DebugWorldPos 
+data DebugItem = DebugItem
+    { _debugPic :: Picture
+    , _debugInfo :: [DebugMessage]
+    }
+
+data DebugMessage
+    = DebugSimpleMessage
+        { _debugMessage :: [String]
+        }
+    | DebugWorldPosMessage
         { _debugWorldPos :: V3 Float
         , _debugMessage :: [String]
         }
-    | DebugScreenPos
+    | DebugScreenPosMessage
         { _debugScreenPos :: V2 Float
         , _debugMessage :: [String]
         }