let with_self_ids ?self_ids l = match self_ids with | Some tags -> `Self_identification tags :: l | None -> l