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
@@ -2,7 +2,6 @@ module Dodge.Creature.ArmourChase
    ( armourChaseCrit
    ) where
 import Dodge.Data
-import Dodge.RemoveCreatureEndo
 import Dodge.Default
 import Dodge.Creature.State
 import Dodge.Creature.ReaderUpdate
@@ -20,7 +19,7 @@ import Control.Monad.Reader

 armourChaseCrit :: Creature
 armourChaseCrit = defaultCreature
-    { _crUpdate = toCrUpdate $ stateUpdate $ impulsiveAIR $ 
+    { _crUpdate =  stateUpdate $ impulsiveAIR $ 
        watchUpdateStratR [] >=>
        doStrategyActionsR >=>
        performActionsR >=>