Start removing Reader monad from internal creature update

2021-12-11 18:24:53 +00:00
parent cdeb3dfa67
commit 154abf0bad
4 changed files with 25 additions and 56 deletions
@@ -89,7 +89,7 @@ longCrit :: Creature
 longCrit = defaultCreature
    { _crPict = basicCrPict red
 --    , _crUpdate = stateUpdate sniperAI
-    , _crUpdate = stateUpdate $ impulsiveAIR $ sentinelFireTypeR $ const shootTillEmpty
+    , _crUpdate = stateUpdate' $ impulsiveAI $ sentinelFireType $ const shootTillEmpty
    , _crActionPlan = ActionPlan
        { _crImpulse    = []
        , _crAction     = []
@@ -109,7 +109,7 @@ multGunCrit = defaultCreature
    , _crInvSel = 0
    , _crRad = 10
    , _crHP = 300
-    , _crUpdate = stateUpdate $ impulsiveAIR $ sentinelExtraWatchUpdate
+    , _crUpdate = stateUpdate' $ impulsiveAI $ sentinelExtraWatchUpdate
            [ ( not . crHasAmmo
              , \_ _ -> StrategyActions Reload reloadActions
              )