Continue to refactor zoning to be more stream-based

src/Dodge/Room/Boss.hs

@@ -92,7 +92,7 @@ roomCross x y = defaultRoom
         ] ++
         [uncurry inLink (V2 (y-20) (-x),pi)
         ]
-    , _rmPath  = []
+    , _rmPath  = mempty
     , _rmPmnts = 
         [ spanLightI (V2 (x+5) x) (V2 (x+5) (-x))
         , spanLightI (V2 (-x-5) x) (V2 (-x-5) (-x))
@@ -118,7 +118,7 @@ roomShuriken x y =
         corner = defaultRoom
             { _rmPolys  = ps
             , _rmLinks  = [toBothLnk (V2 (x-1) (y-20),negate $ pi/2)]
-            , _rmPath   = []
+            , _rmPath   = mempty
             , _rmPmnts  = [mntLS iShape (V2 x x) (V3 (x-20) x 70)]
             , _rmBound  = ps
             }
@@ -143,7 +143,7 @@ roomTwistCross x y z =
         corner = defaultRoom
             { _rmPolys  = ps
             , _rmLinks  = [toBothLnk (V2 z (y-20), pi/2)]
-            , _rmPath   = []
+            , _rmPath   = mempty
             , _rmPmnts  = [mntLS iShape (V2 x x) (V3 (x-20) (x-20) 70)]
             , _rmBound  = map (expandPolyCorners 10) ps
             }