Refactor, try to limit dependencies

src/Dodge/Creature/ChooseTarget.hs

@@ -1,22 +1,20 @@
-module Dodge.Creature.ChooseTarget
-    where
-import Dodge.Data
-import Dodge.Base
+module Dodge.Creature.ChooseTarget where
 
 import Control.Lens
---import qualified IntMapHelp as IM
+import Dodge.Base
+import Dodge.Data.World
 
 targetYouLOS :: Creature -> World -> Maybe Creature
 {-# INLINE targetYouLOS #-}
-targetYouLOS cr w 
+targetYouLOS cr w
     | hasLOS (_crPos cr) (_crPos $ you w) w = Just $ you w
     | otherwise = Nothing
 
 targetYouCognizant :: Creature -> World -> Maybe Creature
-targetYouCognizant cr w 
+targetYouCognizant cr w
     | hasLOS (_crPos cr) (_crPos $ you w) w
-        && isCog (cr ^? crPerception . cpAwareness . ix 0) 
-                = Just $ you w
+        && isCog (cr ^? crPerception . cpAwareness . ix 0) =
+        Just $ you w
     | otherwise = Nothing
   where
     isCog x = case x of