Cleanup, trying to diagnose space leak in crit update

src/Dodge/Creature/PistolCrit.hs

@@ -2,7 +2,6 @@ module Dodge.Creature.PistolCrit
     ( pistolCrit 
     ) where
 import Dodge.Data
-import Dodge.RemoveCreatureEndo
 import Dodge.Default
 import Dodge.Creature.Picture
 import Dodge.Creature.Test
@@ -30,7 +29,7 @@ import Control.Monad.State
 pistolCrit :: Creature
 pistolCrit = defaultCreature
     { _crPict = basicCrPict red
-    , _crUpdate = toCrUpdate $ stateUpdate $ impulsiveAIR $
+    , _crUpdate =  stateUpdate $ impulsiveAIR $
          performActionsR
         >=> watchUpdateStratR
               [ (crHasTargetLOS, \w cr -> StrategyActions (ShootAt 0)