Work on debugging

2023-04-27 11:35:48 +01:00
parent 35990c53bf
commit 9972e0fdea
17 changed files with 39 additions and 28 deletions
@@ -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)