bin: Print usage when arguments are not matched.HEADmain

* bin/ravanan (print-short-usage): New function.
(main): Print usage when arguments are not matched.

1 files changed, 10 insertions, 1 deletions

diff --git a/bin/ravanan b/bin/ravanan
index 449d8db..f765915 100755
--- a/bin/ravanan
+++ b/bin/ravanan
@@ -99,6 +99,12 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
 (define (invalid-option opt name arg result)
   (error "Invalid option" name))
 
+(define (print-short-usage program)
+  (format (current-error-port)
+          "Usage: ~a [OPTIONS] CWL-WORKFLOW INPUTS
+Run CWL-WORKFLOW with INPUTS.~%"
+          program))
+
 (define (print-usage program)
   (format (current-error-port)
           "Usage: ~a [OPTIONS] CWL-WORKFLOW INPUTS
@@ -283,4 +289,7 @@ files that have the token in the @verbatim{SLURM_JWT=token} format."
                                                         outputs)
                            outputs)
                        #:pretty #t))
-          (newline)))))))
+          (newline))
+         (_
+          (print-short-usage program)
+          (exit #f)))))))