6efdac6231f2

Remove newline before group help
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Mon, 18 Nov 2019 12:00:23 -0500
parents d70dd2b9e3c2
children c18067150e3f
branches/tags (none)
files src/main.lisp

Changes

--- a/src/main.lisp	Mon Jul 01 16:03:23 2019 -0400
+++ b/src/main.lisp	Mon Nov 18 12:00:23 2019 -0500
@@ -582,7 +582,7 @@
              (doc-column (+ option-column option-width option-padding))
              (doc-width (- width doc-column)))
         (when help
-          (format stream "~%~{  ~A~^~%~}~2%"
+          (format stream "~{  ~A~^~%~}~2%"
                   (bobbin:wrap (list help) help-width)))
         (dolist (option (options group))
           (print-option-help stream option option-column doc-column doc-width)))))