Cleanup in/outplacements

2022-03-11 13:24:14 +00:00
parent 5d43fc8244
commit 33718ea94b
5 changed files with 23 additions and 32 deletions
@@ -58,10 +58,9 @@ runPastRoom i = do
        critroom = linkcor & rmPmnts .:~ plRRpt 0 randC1
        aswitchroom = corridorWallN
            {_rmOutPmnt = [OutPlacement (putLitButOnPosExtTrig red useUnusedLnk) i]
-            ,_rmLabel = Just i
            ,_rmPmnts = []
            }
-        switchdoor = switchDoorRoom i & rmTakeFrom ?~ i
+        switchdoor = switchDoorRoom i 
        n = length $ filter theedgetest $ map lnkPosDir $ _rmLinks cenroom
        controom = treeFromPost [PassDown switchdoor,PassDown linkcor] (UseAll door)
        critrooms :: [SubCompTree Room]