Add IntMapHelper, locate wall cutting bug

src/Dodge/Layout/Tree/Annotate.hs

@@ -27,6 +27,7 @@ data Annotation g
     = Lock Int
     | Key  Int
     | Corridor
+    | CorridorDebug
     | DoorAno
     | SwitchDoorAno
     | DoorNumAno Int
@@ -71,6 +72,7 @@ annoToRoomTree [OrAno as] = do
     a <- takeOne as
     annoToRoomTree a
 annoToRoomTree [Corridor] = pure . Right <$> randomiseOutLinks corridor
+annoToRoomTree [CorridorDebug] = pure . Right <$> randomiseOutLinks corridorDebug
 annoToRoomTree [DoorAno] = roomThenCorridor door
 annoToRoomTree [DoorNumAno i,AirlockAno] = airlock i >>=  roomThenCorridor
 annoToRoomTree [FirstWeapon] = do