From b790966d237f875102fe366aba31a13c14f84740 Mon Sep 17 00:00:00 2001 From: Stephen Sherratt Date: Sat, 1 Jun 2024 01:54:35 +1000 Subject: [PATCH] Minor fixes --- src/climate.ml | 4 ++-- src/completion.ml | 10 +++++----- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/src/climate.ml b/src/climate.ml index a4faed5..6954a39 100644 --- 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 index a880942..ee1271b 100644 --- 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." ] ] )