Continue to refactor zoning to be more stream-based

src/Dodge/Layout.hs

@@ -21,7 +21,6 @@ import qualified IntMapHelp as IM
 import Tile
 import RandomHelp
 
-import qualified Data.Set as S
 import Data.List (nubBy)
 import Data.Traversable
 import Control.Lens
@@ -47,7 +46,7 @@ generateLevelFromRoomList gr' w = initWallZoning
         }
   where
     path = pairsToGraph dist pairPath
-    pairPath = S.fromList $ concatMap _rmPath rs
+    pairPath = foldMap _rmPath rs
     rs = map doRoomShift $ IM.elems rs'
     rs'= mapM shuffleRoomPos gr' & evalState $ _randGen w