Make zoning more universal

src/Dodge/Base.hs

@@ -15,7 +15,6 @@ module Dodge.Base
     , module Dodge.Base.CardinalPoint
     , module Dodge.Base.Wall
     ) where
-import Dodge.Data
 import Dodge.Base.WinScale
 import Dodge.Base.Wall
 import Dodge.Base.Arithmetic
@@ -37,11 +36,6 @@ import Control.Lens
 --import qualified Data.IntSet as IS
 --import qualified Data.Set as S
 
-
-allWalls :: World -> IM.IntMap Wall
-allWalls = IM.unions . concatMap IM.elems . IM.elems . _znObjects . _wallsZone
-
-
 {- | Expands a line out to a given thickness. -}
 lineGeom :: Float -> Point2 -> Point2 -> [Point2]
 lineGeom t x y