Continue to refactor zoning to be more stream-based

2022-06-28 03:21:55 +01:00
parent f6d96ec92c
commit e06527091e
34 changed files with 214 additions and 252 deletions
@@ -8,20 +8,20 @@ import qualified Data.Set as S

 defaultRoom :: Room
 defaultRoom = Room
-    { _rmPolys  = []
-    , _rmLinks  = []
+    { _rmPolys  = mempty
+    , _rmLinks  = mempty
    , _rmLinkEff = const . const . const . const id
-    , _rmPos    = []
-    , _rmPath   = []
-    , _rmPmnts  = []
-    , _rmInPmnt   = []
-    , _rmOutPmnt    = []
-    , _rmBound      = []
+    , _rmPos    = mempty
+    , _rmPath   = mempty
+    , _rmPmnts  = mempty
+    , _rmInPmnt   = mempty
+    , _rmOutPmnt    = mempty
+    , _rmBound      = mempty
    , _rmFloor      = InheritFloor
    , _rmName       = "defaultRoom"
    , _rmShift      = (V2 0 0 , 0)
-    , _rmViewpoints = []
-    , _rmRandPSs    = []
+    , _rmViewpoints = mempty
+    , _rmRandPSs    = mempty
 --    , _rmLabel      = Nothing
 --    , _rmTakeFrom   = Nothing
    , _rmStartWires = IM.empty