Cancel set change, nub walls with identical wlLines instead

src/Dodge/Layout.hs

@@ -66,7 +66,7 @@ makePath = concat . map _rmPath . flatten
 
 wallsFromTree :: Tree Room -> IM.IntMap Wall
 --wallsFromTree t = createInnerWalls $ divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t)
-wallsFromTree t = checkWalls $ divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t)
+wallsFromTree t = checkWalls $ nubWalls $ divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t)
 --wallsFromTree t = divideWalls $ foldr cutWalls IM.empty (concatMap _rmPolys $ flatten t)
 
 divideWall :: Wall -> [Wall]

src/Dodge/LevelGen.hs

@@ -6,6 +6,7 @@ module Dodge.LevelGen
     , cutWalls
     , createInnerWalls
     , checkWalls
+    , nubWalls
     )
     where
 -- imports {{{