From 3c12b374aa96c4b61e9d9a587140c5e979af3517 Mon Sep 17 00:00:00 2001
From: Antonio Nuno Monteiro <anmonteiro@gmail.com>
Date: Thu, 5 Sep 2024 17:09:02 +0200
Subject: [PATCH] fix(carl): correct a few CLI docstrings

---
 bin/carl.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/carl.ml b/bin/carl.ml
index 93277a6..b43835b 100644
--- a/bin/carl.ml
+++ b/bin/carl.ml
@@ -492,7 +492,7 @@ module CLI = struct
   let cacert =
     let cert_conv =
       let parse s = Ok (Cert.Filepath s) in
-      Arg.conv ~docv:"method" (parse, Cert.pp)
+      Arg.conv ~docv:"cacert" (parse, Cert.pp)
     in
     let doc = "CA certificate to verify peer against" in
     let docv = "file" in
@@ -553,7 +553,7 @@ module CLI = struct
           Ok (name, value)
       in
       let print = format_header in
-      Arg.conv ~docv:"method" (parse, print)
+      Arg.conv ~docv:"header" (parse, print)
     in
     let doc = "Pass custom header(s) to server" in
     let docv = "header" in
@@ -677,7 +677,7 @@ module CLI = struct
         let s = match output with Stdout -> "stdout" | Channel f -> f in
         Format.fprintf formatter "%s" s
       in
-      Arg.conv ~docv:"method" (parse, print)
+      Arg.conv ~docv:"output" (parse, print)
     in
     let doc = "Write to file instead of stdout" in
     let docv = "file" in