Compatibility for cmdliner 2.0.0

psafont · psafont · commit 96290cdb3516 · 2025-11-20T14:57:08.000Z
The type Arg.conv was made abstract and now needs to be handled with
specialized functions. I've tested that it still works with cmdliner
1.3.0. and verified that the function was introduced in 1.0.0.
Unfortunately 1.1.0 is not available in opam anymore, so I did not test
that.

Signed-off-by: Pau Ruiz Safont &lt;pau.safont@vates.tech&gt;
diff --git a/CHANGES.md b/CHANGES.md
@@ -1,3 +1,9 @@
+### Unreleased
+
+### Added
+
+- Add compatibility for cmdliner 2.0.0 (#<PR_NUMBER>, @psafont)
+
 ## 2.1.0
 
 ### Added
diff --git a/bin/help.ml b/bin/help.ml
@@ -249,14 +249,14 @@ let help man_format topic commands =
   | Some topic -> (
       let topics = ("topics" :: commands) @ List.map fst pages in
       let topics = List.sort compare topics in
-      let conv, _ = Cmdliner.Arg.enum (List.rev_map (fun s -> (s, s)) topics) in
-      match conv topic with
-      | `Error e -> `Error (false, e)
-      | `Ok t when List.mem t commands -> `Help (man_format, Some t)
-      | `Ok t when t = "topics" ->
+      let conv = Cmdliner.Arg.enum (List.rev_map (fun s -> (s, s)) topics) in
+      match Arg.conv_parser conv topic with
+      | Error (`Msg e) -> `Error (false, e)
+      | Ok t when List.mem t commands -> `Help (man_format, Some t)
+      | Ok t when t = "topics" ->
           Fmt.pr "@[<v>%a@]@." Fmt.(list string) topics;
           `Ok 0
-      | `Ok t ->
+      | Ok t ->
           let man = try List.assoc t pages with Not_found -> assert false in
           Fmt.pr "%a" (Cmdliner.Manpage.print man_format) man;
           `Ok 0)
