Refactor, try to limit dependencies

src/Dodge/Zoning/World.hs

@@ -1,17 +1,16 @@
 module Dodge.Zoning.World where
-import Dodge.Data
+
+import Dodge.Data.World
 import Geometry.Data
 
 zoneOfSight' :: Float -> World -> [Int2]
-zoneOfSight' s w = 
-    [ V2 a b 
+zoneOfSight' s w =
+    [ V2 a b
     | a <- [minimum xs .. maximum xs]
     , b <- [minimum ys .. maximum ys]
     ]
-  where 
-    --(xs,ys) = unzip $ map zoneOfPoint $ screenPolygon cfig w -- ++ [_cameraViewFrom w]
-    (xs,ys) = unzip $ map sizeZoneOfPoint $ _boundBox (_cWorld w) -- ++ [_cameraViewFrom w]
+  where
+    (xs, ys) = unzip $ map sizeZoneOfPoint $ _boundBox (_cWorld w) -- ++ [_cameraViewFrom w]
     sizeZoneOfPoint (V2 x y) = (f x, f y)
       where
         f = floor . (/ s)
-