Remove reified impulses from creature record

2025-10-18 15:42:35 +01:00
parent b43168ae33
commit 4ee389efb1
16 changed files with 155 additions and 191 deletions
@@ -84,7 +84,7 @@ succB x
 debugWritableValues :: Universe -> Maybe [DebugItem]
 debugWritableValues u =
    Just $
-        mapMaybe f $
+        mapMaybe f
            [ (uvDebugV2_1, uvDebugV2_1)
            , (uvDebugV2_2, uvDebugV2_2)
            ]
@@ -151,7 +151,7 @@ drawCrInfo u = foldMap f . IM.elems $ w ^. cWorld . lWorld . creatures
                , g "crPos" $ cr ^? crPos . _xy
                , g "cpVigilance" $ cr ^? crPerception . cpVigilance
                , g "crAction" $ cr ^? crActionPlan . apAction
-                , g "crImpulse" $ cr ^? crActionPlan . apImpulse
+--                , g "crImpulse" $ cr ^? crActionPlan . apImpulse
                , g "crName" $ cr ^? crName
                , g "crIntention" $ cr ^? crIntention
                ]