Tweak weapon pictures

2021-10-03 13:19:53 +01:00
parent 8c1496e140
commit 0c6fa80ce0
18 changed files with 358 additions and 287 deletions
@@ -75,7 +75,7 @@ annoToRoomTree [OrAno as] = do
 annoToRoomTree [Corridor] = pure . Right <$> randomiseOutLinks corridor
 annoToRoomTree [CorridorDebug] = pure . Right <$> randomiseOutLinks corridorDebug
 annoToRoomTree [DoorAno] = roomThenCorridor door
-annoToRoomTree [DoorNumAno i,AirlockAno] = airlock >>=  roomThenCorridor
+annoToRoomTree [DoorNumAno _,AirlockAno] = airlock >>=  roomThenCorridor
 annoToRoomTree [FirstWeapon] = do
    branchWP <- branchRectWith weaponRoom
    blockedC <- longBlockedCorridor