nonzero exit code for bad raco command (closes #177)

pull/178/head
Matthew Butterick 6 years ago
parent e65c165e7b
commit f8bf2b25c8

@ -123,7 +123,7 @@ version print the version" (current-server-port) (make-publish-di
(for ([path (in-list dirlist)] (for ([path (in-list dirlist)]
#:when (and (directory-exists? path) #:when (and (directory-exists? path)
(not (omitted-path? path)))) (not (omitted-path? path))))
(render-one-dir (->complete-path path))))))] (render-one-dir (->complete-path path))))))]
[else ;; path mode [else ;; path mode
(displayln (format "rendering ~a" (string-join (map ->string path-args) " "))) (displayln (format "rendering ~a" (string-join (map ->string path-args) " ")))
(apply render-batch (map very-nice-path path-args))]))) (apply render-batch (map very-nice-path path-args))])))
@ -242,4 +242,5 @@ version print the version" (current-server-port) (make-publish-di
(begin (begin
(displayln (format "`~a` is an unknown command." command)) (displayln (format "`~a` is an unknown command." command))
(display "These are the available ") ; ... "Pollen commands:" (display "These are the available ") ; ... "Pollen commands:"
(handle-help)))) (handle-help)
(exit 1))))

@ -1 +1 @@
1531950963 1533086918

Loading…
Cancel
Save