Update example to cmdliner.1.1.0

reynir · Mar 16, 2022 · 3e5b8ff · 3e5b8ff
1 parent 8fa846e
commit 3e5b8ff
Showing 1 changed file with 5 additions and 5 deletions.
diff --git 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