Minor cleanup

This commit is contained in:
2021-11-15 02:16:17 +00:00
parent e93fa10a97
commit 59dc24aff6
5 changed files with 21 additions and 17 deletions
+1 -2
View File
@@ -36,8 +36,7 @@ initialAnoTree = padSucWithCorridors $ treeFromTrunk
[[SetLabel 0 $ return $ roomRectAutoLinks 100 100
& rmExtPmnt ?~ externalButton red
(anyLnkInPS 5 & psLnkRoomEff .~ (putWireStart 0 . extractRoomPos) )
-- & rmStartWires .~ IM.fromList [(0,RoomWire 0 0)]
& rmLinkEff .~ [putWireEndInvRmShift 0]
& rmLinkEff .~ [putWireEnd 0]
]
,[UseLabel 0 $ return switchDoorRoom]
]