Remove newline before group help
| 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)))))