Continue to refactor zoning to be more stream-based

src/Dodge/Room/Room.hs

@@ -60,7 +60,7 @@ roomPadCut :: [Point2] -> Point2 -> Room
 roomPadCut ps p = defaultRoom
     { _rmPolys = [ps]
     , _rmLinks = muout [(p,0)] ++ muin [(V2 0 0,pi)]
-    , _rmPath  = [(V2 0 0,p)]
+    , _rmPath  = doublePairSet (V2 0 0,p)
     }
 
 branchWith :: Room -> [Tree Room] -> Tree Room
@@ -220,7 +220,7 @@ deadEndRoom :: Room
 deadEndRoom = defaultRoom
     { _rmPolys = [rectNSWE 40 (-20) (-20) 20 ]
     , _rmLinks = muout (init lnks) ++ muin [last lnks]
-    , _rmPath  = []
+    , _rmPath  = mempty
     , _rmPmnts = [sPS (V2 0 (-10)) 0 putLamp]
     , _rmBound = [rectNSWE 20 (-20) (-30) 30]
     , _rmName  = "deadEndRoom"