Print repeated positional arg doc after fixed

Signed-off-by: Stephen Sherratt <stephen@sherra.tt>

Author: gridbugs

CHANGES.md

@@ -5,6 +5,7 @@
 ### Fixed
 
 - Fix alignment of doc text of positional arguments (#21)
+- Print repeated positional argument docs below fixed positionalargument docs
 
 ## 0.8.2
 

src/climate/help.ml

@@ -201,20 +201,24 @@ module Positional_args = struct
 
   let to_print_section { fixed; repeated } =
     let entries =
-      List.map fixed ~f:(fun { Command_doc_spec.Positional_arg.value; doc } ->
-        { Print.Entry.names = Print.Names.empty
-        ; value = Some value
-        ; doc
-        ; repeated = false
-        })
-      |> List.append
-           (Option.map repeated ~f:(fun { Command_doc_spec.Positional_arg.value; doc } ->
-              { Print.Entry.names = Print.Names.empty
-              ; value = Some value
-              ; doc
-              ; repeated = true
-              })
-            |> Option.to_list)
+      let fixed =
+        List.map fixed ~f:(fun { Command_doc_spec.Positional_arg.value; doc } ->
+          { Print.Entry.names = Print.Names.empty
+          ; value = Some value
+          ; doc
+          ; repeated = false
+          })
+      in
+      let repeated =
+        Option.map repeated ~f:(fun { Command_doc_spec.Positional_arg.value; doc } ->
+          { Print.Entry.names = Print.Names.empty
+          ; value = Some value
+          ; doc
+          ; repeated = true
+          })
+        |> Option.to_list
+      in
+      fixed @ repeated
     in
     { Print.Section.section_heading = "Arguments:"; entries }
   ;;

tests/usage_tests/help_messages.ml

@@ -462,9 +462,9 @@ let%expect_test "positional arguments" =
     Usage: foo.exe [OPTION]… <FIRST> <SECOND> [REST]…
 
     Arguments:
-      [REST]...  rest doc
       <FIRST>    first doc
       <SECOND>   second doc
+      [REST]...  rest doc
 
     Options:
       -h, --help  Show this help message.