Remove Reader from chaseCrit

src/Dodge/Creature/ChaseCrit.hs

@@ -5,6 +5,7 @@ module Dodge.Creature.ChaseCrit
 import Dodge.Data
 import Dodge.Default
 import Dodge.Creature.Picture
+import Dodge.Creature.ChainUpdates
 import Dodge.Creature.ReaderUpdate
 import Dodge.Creature.Impulse
 import Dodge.Creature.Action
@@ -20,7 +21,6 @@ import Picture
 --import Data.Maybe
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
-import Control.Monad
 --import System.Random
 
 smallChaseCrit :: Creature
@@ -33,17 +33,17 @@ smallChaseCrit = chaseCrit
     }
 chaseCrit :: Creature
 chaseCrit = defaultCreature
-    { _crUpdate =  stateUpdate $ --dummyUpdate
-        impulsiveAIR $ 
-        doStrategyActionsR >=>
-        performActionsR >=>
-        overrideMeleeCloseTargetR >=>
-        setViewPos >=>
-        setMvPos >=>
-        goToTarget >=>
-        perceptionUpdate [0] >=>
-        targetYouWhenCognizantR >=>
-        return . (crMeleeCooldown %~ max 0 . subtract 1)
+    { _crUpdate =  stateUpdate' $ impulsiveAI $ chainCreatureUpdatesLR
+        [ Right doStrategyActions
+        , Left performActions
+        , Right overrideMeleeCloseTarget
+        , Right setViewPos'
+        , Right setMvPos'
+        , Left goToTarget'
+        , Left $ perceptionUpdate' [0]
+        , Left targetYouWhenCognizant
+        , Right (crMeleeCooldown %~ max 0 . subtract 1)
+        ]
     , _crHP = 300
     , _crPict = basicCrPict green
     , _crInv = IM.fromList [(0,medkit 200)]