Simplify creature impulse chain

src/Dodge/Humanoid.hs

@@ -1,5 +1,6 @@
 module Dodge.Humanoid where
 
+import Dodge.Creature.Impulse
 import Linear
 import Data.Maybe
 import Dodge.Creature.Action
@@ -180,7 +181,10 @@ updateHumanoid cr = case cr ^?! crType of
 --        ]
 
 humanoidAIList :: [World -> Creature -> Creature] -> Creature -> World -> World
-humanoidAIList = impulsiveAIBefore . chainCreatureUpdates
+humanoidAIList l cr w = followImpulses cid $ 
+    w & cWorld . lWorld . creatures . ix cid %~ chainCreatureUpdates l w
+  where
+    cid = cr ^. crID
 
 chooseMovementPistol :: Creature -> World -> Action
 chooseMovementPistol cr w =