Simplify creature update

src/Dodge/Creature/LauncherCrit.hs

@@ -5,15 +5,16 @@ module Dodge.Creature.LauncherCrit
 import Dodge.Data
 import Dodge.Default
 import Dodge.Creature.Picture
-import Dodge.Creature.ChainUpdates
+--import Dodge.Creature.ChainUpdates
 import Dodge.Creature.Test
 import Dodge.Creature.Volition
 import Dodge.Creature.Strategy
 import Dodge.Creature.ReaderUpdate
 import Dodge.Creature.Perception
-import Dodge.Creature.State
+--import Dodge.Creature.State
+import Dodge.Creature.Update
 import Dodge.Item.Weapon.Launcher
-import Dodge.Creature.Impulse
+--import Dodge.Creature.Impulse
 import Dodge.Creature.Action
 import Geometry.Data
 import Picture
@@ -24,7 +25,7 @@ import Control.Lens
 launcherCrit :: Creature
 launcherCrit = defaultCreature
     { _crPict = basicCrPict red
-    , _crUpdate = stateUpdate $ impulsiveAI $ chainCreatureUpdates
+    , _crUpdate = defaultImpulsive
         [ performActions
         , watchUpdateStrat
             [ (crHasTargetLOS, \_ _ -> StrategyActions (ShootAt 0) [retreatFire])