fix compilation

This commit is contained in:
Hannes Mehnert 2021-08-03 15:12:53 +02:00
parent cd633087d5
commit 4c42865ca7

View file

@ -253,7 +253,7 @@ let infer_section_and_synopsis name artifacts =
List.find_opt (fun (affix, _) -> Astring.String.is_infix ~affix name) map List.find_opt (fun (affix, _) -> Astring.String.is_infix ~affix name) map
with with
| None -> None | None -> None
| Some (_, os) -> os ^ " Packages" | Some (_, os) -> Some (os ^ " Packages")
in in
match opam_switch with match opam_switch with
| None -> None, (None, None) | None -> None, (None, None)