Add explicit door position field

2022-03-09 22:14:34 +00:00
parent 4a1ca905f7
commit 027b4b7d8b
14 changed files with 53 additions and 37 deletions
@@ -89,7 +89,7 @@ data Room = Room
    , _rmTakeFrom   :: Maybe Int
    , _rmStartWires :: IM.IntMap RoomWire
    , _rmEndWires   :: IM.IntMap RoomWire
-    , _rmConnectsTo :: S.Set RoomLinkType
+    , _rmConnectsTo :: (S.Set RoomLinkType -> Bool)
    , _rmMID        :: Maybe Int
    , _rmMParent    :: Maybe Int
    , _rmChildren   :: [Int]