Rearrange zone sizes

src/Dodge/Placement/PlaceSpot/Block.hs

@@ -43,13 +43,13 @@ addBlock (p:ps) wl bl w = w
             }
         ) is lns
     wallInZone wl'
-        | uncurry dist (_wlLine wl') <= 2*wallZoneSize 
+        | uncurry dist (_wlLine wl') <= 2*wlZoneSize 
             = insertIMInZone x y wlid wl'
         | otherwise = flip (foldl' $ flip (\(a,b) -> insertIMInZone a b wlid wl')) ips
       where 
         V2 x y = wallZoneOfPoint $ uncurry midPoint (_wlLine wl)
         wlid  = _wlID wl
-        ips = map (unv2 . wallZoneOfPoint) $ uncurry (divideLine (2*wallZoneSize)) (_wlLine wl)
+        ips = map (unv2 . wallZoneOfPoint) $ uncurry (divideLine (2*wlZoneSize)) (_wlLine wl)
         unv2 (V2 x' y') = (x',y')
 addBlock _ _ _ _ = error "Trying to add a block with incomplete polygon"