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
@@ -21,7 +21,7 @@ import qualified Data.IntMap.Strict as IM
 autoCrit :: Creature
 autoCrit = defaultCreature
    { _crPict = basicCrPict red
-    , _crUpdate =  stateUpdate $ impulsiveAIR sentinelAI
+    , _crUpdate =  stateUpdate' $ impulsiveAI sentinelAI
    , _crActionPlan = ActionPlan
        { _crImpulse    = []
        , _crAction     = []