Work on debugging

src/Dodge/Data/ActionPlan.hs

@@ -16,10 +16,10 @@ import Sound.Data
 data ActionPlan
     = Inanimate
     | ActionPlan
-        { _apImpulse :: [Impulse]
-        , _apAction :: [Action]
-        , _apStrategy :: Strategy
-        , _apGoal :: [Goal]
+        { _apImpulse :: [Impulse] -- done per frame
+        , _apAction :: [Action] -- updated per frame, likely persist across frames
+        , _apStrategy :: Strategy -- current strategy
+        , _apGoal :: [Goal] -- particular ordered goals
         }
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
     deriving (Eq, Ord, Show) --Generic, Flat)

src/Dodge/Data/Creature.hs

@@ -32,6 +32,7 @@ import Dodge.Data.Item
 import Dodge.Data.Material
 import Geometry.Data
 import qualified IntMapHelp as IM
+--import MaybeHelp
 
 data Creature = Creature
     { _crPos :: Point2

src/Dodge/Data/Input.hs

@@ -25,6 +25,7 @@ data Input = Input
     , _smoothScrollAmount :: Int
     , _clickPos :: M.Map MouseButton Point2 -- updates on initial mouse button press
     , _heldPos :: M.Map MouseButton Point2 -- updates while mouse button is held, lags one frame
+    , _clickWorldPos :: M.Map MouseButton Point2 -- updates on initial mouse button press
     , _textInput :: [Either TermSignal Char]
     , _scrollTestFloat :: Float
     , _scrollTestInt :: Int

src/Dodge/Data/Universe.hs

@@ -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