Add airlocks

src/Dodge/Layout/Tree/Annotate.hs

@@ -15,6 +15,7 @@ import Dodge.Room.Boss
 import Dodge.Room.Treasure
 import Dodge.Room.Link
 import Dodge.Room.Data
+import Dodge.Room.Airlock
 import Dodge.Room
 import Dodge.Room.Teleport
 
@@ -71,7 +72,7 @@ annoToRoomTree [OrAno as] = do
     annoToRoomTree a
 annoToRoomTree [Corridor] = pure . Right <$> randomiseOutLinks corridor
 annoToRoomTree [DoorAno] = roomThenCorridor door
-annoToRoomTree [DoorNumAno i,AirlockAno] = roomThenCorridor (airlock i)
+annoToRoomTree [DoorNumAno i,AirlockAno] = airlock i >>=  roomThenCorridor
 annoToRoomTree [FirstWeapon] = do
     branchWP <- branchRectWith weaponRoom
     blockedC <- longBlockedCorridor