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
@@ -1454,7 +1454,7 @@ data Room = Room
        -> Room     -- ^ parent room
        -> Room
    , _rmPos        :: [RoomPos]
-    , _rmPath       :: [(Point2, Point2)]
+    , _rmPath       :: S.Set (Point2, Point2)
    , _rmPmnts      :: [Placement]
    , _rmInPmnt     :: [InPlacement]
    , _rmOutPmnt    :: [OutPlacement]