Minor cleanup
This commit is contained in:
+1
-2
@@ -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]
|
||||
]
|
||||
|
||||
Reference in New Issue
Block a user