Cleanup, trying to diagnose space leak in crit update

2021-12-09 22:12:44 +00:00
parent bd94044445
commit 3c35a04531
23 changed files with 203 additions and 178 deletions
@@ -30,7 +30,7 @@ defaultCreature = Creature
    , _crMvDir  = 0
    , _crTwist  = 0
    , _crID     = 1
-    , _crPict   = \_ _ _ -> (,) mempty blank
+    , _crPict   = \_ _ _ -> mempty
    , _crUpdate = const id
    , _crRad    = 10
    , _crMass   = 10
@@ -60,6 +60,8 @@ defaultCreature = Creature
    , _crGroup   = LoneWolf
    , _crMvType  = defaultAimMvType
    }
+defaultInanimate :: Creature
+defaultInanimate = defaultCreature & crActionPlan .~ Inanimate

 defaultCreatureMemory :: MemoryState
 defaultCreatureMemory = MemoryState