Simplify creature update

src/Dodge/Creature/SwarmCrit.hs

@@ -1,16 +1,16 @@
 module Dodge.Creature.SwarmCrit
     ( swarmCrit
-    )
-    where
+    ) where
 import Dodge.Data
 import Dodge.Default
 import Dodge.Creature.Picture
-import Dodge.Creature.ChainUpdates
+import Dodge.Creature.Update
+--import Dodge.Creature.ChainUpdates
 import Dodge.Creature.Boid
 import Dodge.Creature.ReaderUpdate
 import Dodge.Creature.Perception
-import Dodge.Creature.Impulse
-import Dodge.Creature.State
+--import Dodge.Creature.Impulse
+--import Dodge.Creature.State
 import Dodge.Picture.Layer
 import Picture
 
@@ -18,7 +18,7 @@ import Control.Lens
 
 swarmCrit :: Creature
 swarmCrit = defaultCreature
-    { _crUpdate =  stateUpdate $ impulsiveAI $ chainCreatureUpdates
+    { _crUpdate =  defaultImpulsive
         [ flockToPointUsing' (encircleDistP 100) (meleeHeadingMove 0.1 0.1 (pi/4) 3.9)
         , const (crMeleeCooldown %~ max 0 . subtract 1)
         , perceptionUpdate [0]