Use explicit out and in placements with ids

2022-03-11 12:55:59 +00:00
parent 219e4e15ee
commit 5d43fc8244
6 changed files with 33 additions and 30 deletions
@@ -77,8 +77,8 @@ data Room = Room
    , _rmPos        :: [RoomPos]
    , _rmPath       :: [(Point2, Point2)]
    , _rmPmnts      :: [Placement]
-    , _rmPartPmnt   :: Maybe ([Placement] -> Placement)
-    , _rmExtPmnt    :: Maybe Placement
+    , _rmInPmnt     :: [InPlacement]
+    , _rmOutPmnt    :: [OutPlacement]
    , _rmBound      :: [ [Point2] ]
    , _rmFloor      :: Floor
    , _rmName       :: String