Cleanup, trying to diagnose space leak in crit update

src/Dodge/Creature/AutoCrit.hs

@@ -2,7 +2,6 @@ module Dodge.Creature.AutoCrit
     ( autoCrit 
     ) where
 import Dodge.Data
-import Dodge.RemoveCreatureEndo
 import Dodge.Default
 import Dodge.Creature.Picture
 import Dodge.Creature.SentinelAI
@@ -22,7 +21,7 @@ import qualified Data.IntMap.Strict as IM
 autoCrit :: Creature
 autoCrit = defaultCreature
     { _crPict = basicCrPict red
-    , _crUpdate = toCrUpdate $ stateUpdate $ impulsiveAIR sentinelAI
+    , _crUpdate =  stateUpdate $ impulsiveAIR sentinelAI
     , _crActionPlan = ActionPlan
         { _crImpulse    = []
         , _crAction     = []