Cleanup

src/Dodge/Humanoid.hs

@@ -1,12 +1,15 @@
 module Dodge.Humanoid (chaseCritInternal) where
 
+import Data.Foldable
 import Dodge.Creature
 import Dodge.Data.World
 import LensHelp
 
 chaseCritInternal :: World -> Creature -> Creature
-chaseCritInternal =
-    chainCreatureUpdates
+chaseCritInternal w cr =
+    foldl'
+        (\c f -> f w c)
+        cr
         [ const doStrategyActions
         , overrideMeleeCloseTarget
         , setViewPos