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
@@ -15,7 +15,7 @@ targetYouLOS cr w
 targetYouCognizant :: Creature -> World -> Maybe Creature
 targetYouCognizant cr w 
    | hasLOS (_crPos cr) (_crPos $ you w) w
-        && isCog (cr ^? crPerception . crAwarenessLevel . ix 0) 
+        && isCog (cr ^? crPerception . cpAwareness . ix 0) 
                = Just $ you w
    | otherwise = Nothing
  where