From 3e5b8ff732d916f47d050547cfc1a61b49590c5e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= <reynir@reynir.dk>
Date: Wed, 16 Mar 2022 20:41:28 +0000
Subject: [PATCH] Update example to cmdliner.1.1.0

---
 cmd/ssh_add.ml | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/cmd/ssh_add.ml b/cmd/ssh_add.ml
index 83c5c70..8152d0e 100644
--- a/cmd/ssh_add.ml
+++ b/cmd/ssh_add.ml
@@ -32,8 +32,8 @@ let key_comment =
 
 let () = 
   let term =
-    Term.(const main $ bits $ key_comment),
-    Term.info "ssh-add" ~version:"0.1" in
-  match Term.eval term with
-  | `Error _ -> exit 1
-  | _ -> exit 0
+    Cmd.v (Cmd.info "ssh-add" ~version:"0.1")
+      Term.(const main $ bits $ key_comment)
+  in
+  Cmd.eval term
+  |> exit