Remove Reader from chaseCrit

2021-12-11 19:07:14 +00:00
parent e698695842
commit ab7a503515
3 changed files with 33 additions and 34 deletions
@@ -16,7 +16,6 @@ import Picture

 import qualified Data.IntMap.Strict as IM
 import Control.Lens
--import Control.Monad.Reader

 armourChaseCrit :: Creature
 armourChaseCrit = defaultCreature
@@ -25,7 +24,7 @@ armourChaseCrit = defaultCreature
        , Right doStrategyActions
        , Left performActions
        , Left targetYouWhenCognizant
-        , Left $ setTargetMv' (\_ -> _targetCr . _crIntention)
+        , Left $ setTargetMv (\_ -> _targetCr . _crIntention)
        , Left flockACC
        , Left $ perceptionUpdate' [0]
        , Left goToTarget'