Rename Perception datatype/fields

2022-06-18 10:08:06 +01:00
parent 66fda3fb93
commit a1c7abedaf
13 changed files with 76 additions and 85 deletions
@@ -9,7 +9,7 @@ targetYouWhenCognizant
    :: World
    -> Creature
    -> Creature
-targetYouWhenCognizant w cr = case cr ^? crPerception . crAwarenessLevel . ix 0 of
+targetYouWhenCognizant w cr = case cr ^? crPerception . cpAwareness . ix 0 of
    Just (Cognizant _)  -> cr & crIntention . targetCr ?~ _creatures w IM.! 0
    _                   -> cr & crIntention . targetCr .~ Nothing