Locate bug in wall zoning

src/Dodge/Base/Zone.hs

@@ -133,20 +133,21 @@ zoneOfSight w =
   where 
     (xs,ys) = unzip $ map zoneOfPoint $ screenPolygon w ++ [_cameraViewFrom w]
 
+-- TODO sort out zoning of walls properly
 wallsDoubleScreen :: World -> IM.IntMap Wall
-wallsDoubleScreen w -- = IM.unions [f b $ f a $ _wallsZone w | (a,b) <- is]
-    = foldl' (flip $ IM.union . \i -> innerFold (f i (_wallsZone w))) IM.empty xs
-  where 
-    innerFold m = foldl' (flip $ IM.union . \ j -> f j m) IM.empty ys
-
-    f i m = case IM.lookup i m of 
-        Just val -> val
-        _        -> IM.empty
-    (x,y) = zoneOfPoint $ _cameraCenter w
-    n = ceiling (wh / (_cameraZoom w * zoneSize)) * 2
-    wh = max (getWindowX w) (getWindowY w)
-    xs = [x - n .. x + n]
-    ys = [y - n .. y + n]
+wallsDoubleScreen w = _walls w
+--    = foldl' (flip $ IM.union . \i -> innerFold (f i (_wallsZone w))) IM.empty xs
+--  where 
+--    innerFold m = foldl' (flip $ IM.union . \ j -> f j m) IM.empty ys
+--
+--    f i m = case IM.lookup i m of 
+--        Just val -> val
+--        _        -> IM.empty
+--    (x,y) = zoneOfPoint $ _cameraCenter w
+--    n = ceiling (wh / (_cameraZoom w * zoneSize)) * 2
+--    wh = max (getWindowX w) (getWindowY w)
+--    xs = [x - n .. x + n]
+--    ys = [y - n .. y + n]
 
 wallsOnScreen :: World -> IM.IntMap Wall
 wallsOnScreen w -- = wallsNearZones (zoneOfScreen w) w
@@ -220,3 +221,6 @@ wallsNearPoint p w =  IM.unions [f b $ f a $ _wallsZone w | a<-[x-1,x,x+1] , b<-
     f i m = case IM.lookup i m of 
         Just val -> val
         _ -> IM.empty
+
+flattenIMIMIM :: IM.IntMap (IM.IntMap (IM.IntMap a)) -> IM.IntMap a
+flattenIMIMIM = IM.unions . IM.map IM.unions