Cleanup

src/Dodge/Layout.hs

@@ -26,6 +26,7 @@ import Color
 import Shape
 --import Padding
 
+import qualified Data.Set as S
 import Data.List (nubBy)
 import Data.Traversable
 import Control.Lens
@@ -52,7 +53,7 @@ generateLevelFromRoomList gr' w = initWallZoning
         }
   where
     path = pairsToGraph dist pairPath
-    pairPath = concatMap _rmPath rs
+    pairPath = S.fromList $ concatMap _rmPath rs
     rs = map doRoomShift $ IM.elems rs'
     rs'= mapM shuffleRoomPos gr' & evalState $ _randGen w