Don't generate --no-option for single char option names

ocaml-ppx · Oct 9, 2019 · 99f0e4e · 99f0e4e
1 parent 04ae524
commit 99f0e4e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/ocamlformat-help.txt b/ocamlformat-help.txt
@@ -525,7 +525,7 @@ OPTIONS
        --no-comment-check
            Unset comment-check.
 
-       --no-quiet, --no-q
+       --no-quiet
            Unset quiet.
 
        --no-version-check

diff --git a/src/Config_option.ml b/src/Config_option.ml
@@ -85,7 +85,10 @@ module Make (C : CONFIG) = struct
       ?(allow_inline = Poly.(section = `Formatting)) ?(deprecated = false)
       update get_value =
     let open Cmdliner in
-    let invert_names = List.map names ~f:(fun n -> "no-" ^ n) in
+    let invert_names =
+      List.filter_map names ~f:(fun n ->
+          if String.length n = 1 then None else Some ("no-" ^ n))
+    in
     let doc =
       generated_flag_doc ~allow_inline ~doc ~section ~default ~deprecated
     in