Minor fixes

gridbugs · May 31, 2024 · b790966 · b790966
1 parent e2841bf
commit b790966
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/src/climate.ml b/src/climate.ml
@@ -868,7 +868,7 @@ module Arg_parser = struct
     Format.flush_str_formatter ()
   ;;
 
-  let conv_untyped_completion' (type a) (conv : a conv) (completion : a Completion.t) =
+  let conv_untyped_completion (type a) (conv : a conv) (completion : a Completion.t) =
     match completion with
     | File -> Completion_spec.Hint.File
     | Values values ->
@@ -886,7 +886,7 @@ module Arg_parser = struct
     let completion_opt =
       if Option.is_some completion_opt then completion_opt else conv.completion
     in
-    Option.map completion_opt ~f:(conv_untyped_completion' conv)
+    Option.map completion_opt ~f:(conv_untyped_completion conv)
   ;;
 
   let sprintf = Printf.sprintf

diff --git a/src/completion.ml b/src/completion.ml
@@ -441,11 +441,11 @@ module Completion_entry_point = struct
               , [ call
                     Error.print
                     [ Value.literal
-                        "Unexpected length of \\$COMP_WORDS array: $(%s). Its length \
-                         should be at least 2 since the first element should always be \
-                         the program name, and the second element will be the first word \
-                         after the program name, which is expected to be the empty \
-                         string if no additional words have been entered after the \
+                        "Unexpected length of \\$COMP_WORDS array: $(${#COMP_WORDS[@]}). \
+                         Its length should be at least 2 since the first element should \
+                         always be the program name, and the second element will be the \
+                         first word after the program name, which is expected to be the \
+                         empty string if no additional words have been entered after the \
                          program name."
                     ]
                 ] )