Add explicit door position field

src/Dodge/Room/RezBox.hs

@@ -62,7 +62,7 @@ rezBoxesWp = do
         (Node (PassDown centralRoom) (rezrooms ++ [onwardpassage]))
   where
     adddoor rm = treeFromPost [PassDown $ connectsToNorth door ] (PassDown rm)
-    connectsToNorth = rmConnectsTo .~ S.singleton (OnEdge North)
+    connectsToNorth = rmConnectsTo .~ S.member (OnEdge North)
 maybeBlockedPassage :: RandomGen g => State g (SubCompTree Room)
 maybeBlockedPassage = fmap singleUseAll $ join $ takeOne [return corridor, blockedCorridorCloseBlocks]
 rezBoxesWpCrit :: RandomGen g => State g (SubCompTree Room)
@@ -75,7 +75,7 @@ rezBoxesWpCrit = do
         aroom = rezInvBox thecol
     let centralRoom = (roomRectAutoLinks w h) {_rmPmnts = []}
     onwardpassage <-
-        applyToCompRoot (rmConnectsTo .~ S.singleton (OnEdge West)) <$> maybeBlockedPassage
+        applyToCompRoot (rmConnectsTo .~ S.member (OnEdge West)) <$> maybeBlockedPassage
     let n = length $ filter bottomEdgeTest $ map lnkPosDir $ _rmLinks centralRoom
     i <- state $ randomR (0,n-3)
     j <- state $ randomR (i,n-2)
@@ -88,7 +88,7 @@ rezBoxesWpCrit = do
         ]
         (Node (PassDown centralRoom) (rezrooms ++ [onwardpassage]))
   where
-    adddoor rm = treeFromPost [PassDown $ door & rmConnectsTo .~ S.singleton (OnEdge North)] (PassDown rm)
+    adddoor rm = treeFromPost [PassDown $ door & rmConnectsTo .~ S.member (OnEdge North)] (PassDown rm)
 
 crAdd :: Room -> Room
 crAdd = rmPmnts .:~ sPS (V2 20 10) (0.5*pi) randC1
@@ -99,7 +99,7 @@ rezBoxes = do
     h <- state $ randomR (40,40)
     thecol <- rezColor
     let bottomEdgeTest = S.member (OnEdge South) . _rlType 
-        dbox = treeFromPost [PassDown $ door & rmConnectsTo .~ S.singleton (OnEdge South)] 
+        dbox = treeFromPost [PassDown $ door & rmConnectsTo .~ S.member (OnEdge South)] 
             (PassDown $ rezInvBox thecol)
     centralRoom <- shuffleLinks $ (roomRectAutoLinks w h) {_rmPmnts = []}
             & rmLinks %~ setInLinks bottomEdgeTest