From f9777deedf8d4f43a37cc78fe22e63b58f62d2c1 Mon Sep 17 00:00:00 2001
From: jgk <justin.g.kruger@gmail.com>
Date: Thu, 4 Mar 2021 19:09:37 +0100
Subject: [PATCH] Cancel set change, nub walls with identical wlLines instead

---
 src/Dodge/Layout.hs   | 2 +-
 src/Dodge/LevelGen.hs | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Dodge/Layout.hs b/src/Dodge/Layout.hs
index 5d3688765..85ec08900 100644
--- a/src/Dodge/Layout.hs
+++ b/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]
diff --git a/src/Dodge/LevelGen.hs b/src/Dodge/LevelGen.hs
index 9f22c89ec..656acee5d 100644
--- a/src/Dodge/LevelGen.hs
+++ b/src/Dodge/LevelGen.hs
@@ -6,6 +6,7 @@ module Dodge.LevelGen
     , cutWalls
     , createInnerWalls
     , checkWalls
+    , nubWalls
     )
     where
 -- imports {{{