Work on airlocks

2025-08-23 17:42:36 +01:00
parent f641805845
commit 32d7120177
19 changed files with 380 additions and 334 deletions
@@ -36,7 +36,7 @@ addDoorToggleTerminal = addDoorAtNthLinkToggleTerminal 0

 addDoorAtNthLinkToggleTerminal :: Int -> [TerminalLine] -> Int -> Room -> Room
 addDoorAtNthLinkToggleTerminal j xs i = (rmName .++~ "doorToggle-")
-        . (rmOutPmnt .:~ OutPlacement outplace i)
+        . (rmOutPmnt . at i ?~ outplace)
  where
    outplace =
        extTrigLitPos