fix cmdliner 2.0.0

Author: krfantasy

dune-project

@@ -18,7 +18,7 @@
  (depends
   (ocaml (>= "5.0.0~"))
   hdr_histogram
-  (cmdliner (and (>= 1.1.0) (< 2.0)))
+  (cmdliner (>= 2.0.0))
   (trace-fuchsia (>= 0.10))
   (trace (>= 0.10))
   (menhir :with-test)

lib/olly_common/cli.ml

@@ -20,14 +20,15 @@ let help man_format cmds topic =
   | None -> `Help (`Pager, None) (* help about the program. *)
   | Some topic -> (
       let topics = "topics" :: cmds 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 t = "topics" ->
+      let conv = Cmdliner.Arg.enum (List.rev_map (fun s -> (s, s)) topics) in
+      let parse = Cmdliner.Arg.Conv.parser conv in
+      match parse topic with
+      | Error e -> `Error (false, e)
+      | Ok t when t = "topics" ->
           List.iter print_endline topics;
           `Ok ()
-      | `Ok t when List.mem t cmds -> `Help (man_format, Some t)
-      | `Ok _t ->
+      | Ok t when List.mem t cmds -> `Help (man_format, Some t)
+      | Ok _t ->
           let page =
             ((topic, 7, "", "", ""), [ `S topic; `P "Say something" ])
           in

runtime_events_tools.opam

@@ -11,7 +11,7 @@ depends: [
   "dune" {>= "3.18"}
   "ocaml" {>= "5.0.0~"}
   "hdr_histogram"
-  "cmdliner" {>= "1.1.0" & < "2.0"}
+  "cmdliner" {>= "2.0.0"}
   "trace-fuchsia" {>= "0.10"}
   "trace" {>= "0.10"}
   "menhir" {with-test}