From 62d8ecb7d96b63a257cb4d6166e1605eec540837 Mon Sep 17 00:00:00 2001
From: Alpha DIALLO <moyodiallo@gmail.com>
Date: Tue, 17 Oct 2023 10:48:12 +0200
Subject: [PATCH] Update cmdliner

---
 dune-project | 2 +-
 example.opam | 2 +-
 src/main.ml  | 6 +++---
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/dune-project b/dune-project
index e65ed2f..03d0d5e 100644
--- a/dune-project
+++ b/dune-project
@@ -19,5 +19,5 @@
   current_git
   fmt
   lwt
-  cmdliner
+  (cmdliner (>= 1.2.0))
   (ocaml (>= 4.08.0))))
diff --git a/example.opam b/example.opam
index bea3859..29ea3d0 100644
--- a/example.opam
+++ b/example.opam
@@ -14,7 +14,7 @@ depends: [
   "current_git"
   "fmt"
   "lwt"
-  "cmdliner"
+  "cmdliner" {>= "1.2.0"}
   "ocaml" {>= "4.08.0"}
 ]
 build: [
diff --git a/src/main.ml b/src/main.ml
index 37dd719..c8c03f9 100644
--- a/src/main.ml
+++ b/src/main.ml
@@ -31,7 +31,7 @@ let repo =
 
 let cmd =
   let doc = "an OCurrent pipeline" in
-  Term.(term_result (const main $ Current.Config.cmdliner $ Current_web.cmdliner $ repo)),
-  Term.info program_name ~doc
+  let info = Cmd.info program_name ~doc in
+  Cmd.v info Term.(term_result (const main $ Current.Config.cmdliner $ Current_web.cmdliner $ repo))
 
-let () = Term.(exit @@ eval cmd)
+let () = exit (Cmd.eval cmd)