Cleanup, trying to diagnose space leak in crit update

src/Dodge/Creature.hs

@@ -11,7 +11,6 @@ module Dodge.Creature
     , smallChaseCrit
     )
   where
-import Dodge.RemoveCreatureEndo
 import Dodge.Creature.State.Data
 --import Dodge.Item.Weapon.Grenade
 import Dodge.Item.Weapon.Booster
@@ -70,7 +69,7 @@ spawnerCrit = defaultCreature
 miniGunCrit :: Creature
 miniGunCrit = defaultCreature
     { _crPict = basicCrPict red
-    , _crUpdate = toCrUpdate $ stateUpdate $ impulsiveAIR $
+    , _crUpdate = stateUpdate $ impulsiveAI $
         sentinelFireType (const shootTillEmpty)
     , _crActionPlan = ActionPlan
         { _crImpulse    = []
@@ -78,7 +77,9 @@ miniGunCrit = defaultCreature
         , _crStrategy   = StrategyActions WatchAndWait [StartSentinelPost]
         , _crGoal       = []
         }
-    , _crInv = IM.fromList [(0,miniGun)]
+    , _crInv = IM.fromList [(0,autoRifle & itConsumption . ammoLoaded .~ 1000)]
+--    , _crInv = IM.fromList [(0,miniGun')]
+--    , _crInv = IM.fromList [(0,autoRifle)]
     , _crInvSel = 0
     , _crRad = 10
     , _crState = defaultState
@@ -89,7 +90,7 @@ longCrit :: Creature
 longCrit = defaultCreature
     { _crPict = basicCrPict red
 --    , _crUpdate = stateUpdate sniperAI
-    , _crUpdate = toCrUpdate $ stateUpdate $ impulsiveAIR $ sentinelFireType $ const shootTillEmpty
+    , _crUpdate = stateUpdate $ impulsiveAIR $ sentinelFireTypeR $ const shootTillEmpty
     , _crActionPlan = ActionPlan
         { _crImpulse    = []
         , _crAction     = []
@@ -109,7 +110,7 @@ multGunCrit = defaultCreature
     , _crInvSel = 0
     , _crRad = 10
     , _crHP = 300
-    , _crUpdate = toCrUpdate $ stateUpdate $ impulsiveAIR $ sentinelExtraWatchUpdate
+    , _crUpdate = stateUpdate $ impulsiveAIR $ sentinelExtraWatchUpdate
             [ ( not . crHasAmmo
               , \_ _ -> StrategyActions Reload reloadActions
               )
@@ -150,7 +151,7 @@ startCr = defaultCreature
     , _crMvDir  = pi/2
     , _crID = 0
     , _crPict = basicCrPict black
-    , _crUpdate = toCrUpdate $ stateUpdate yourControl
+    , _crUpdate = stateUpdate yourControl
     , _crRad = 10
     , _crMass = 10
     , _crHP = 1000