Refactor, try to limit dependencies

src/Dodge/Zoning/Creature.hs

@@ -1,15 +1,13 @@
 module Dodge.Zoning.Creature where
-import FoldableHelp
-import Dodge.Data
-import Geometry
-import Dodge.Zoning.Base
---import qualified FoldlHelp as L
-import qualified IntMapHelp as IM
 
-import Data.Maybe
---import Data.Function
-import qualified Data.IntSet as IS
 import Control.Lens
+import qualified Data.IntSet as IS
+import Data.Maybe
+import Dodge.Data.World
+import Dodge.Zoning.Base
+import FoldableHelp
+import Geometry
+import qualified IntMapHelp as IM
 
 crIXsNearPoint :: Point2 -> World -> IS.IntSet
 crIXsNearPoint p w = zoneExtract (zoneOfPoint' crZoneSize p) (w ^. cWorld . crZoning)