Move towards incorporating sound into ai

src/Dodge/Creature/SetTarget.hs

@@ -4,7 +4,7 @@ Deals with setting a target for creatures
 module Dodge.Creature.SetTarget
     where
 import Dodge.Data
-import Dodge.Creature.AlertLevel.Data
+import Dodge.Creature.Perception.Data
 
 import Control.Lens
 import qualified Data.IntMap.Strict as IM
@@ -13,7 +13,7 @@ targetYouWhenCognizant
     :: World
     -> Creature
     -> Creature
-targetYouWhenCognizant w cr = case cr ^? crAwarenessLevel . ix 0 of
+targetYouWhenCognizant w cr = case cr ^? crPerception . crAwarenessLevel . ix 0 of
     Just (Cognizant _)  -> cr & crTarget ?~ _creatures w IM.! 0
     _                   -> cr & crTarget .~ Nothing