From 8c2e681cb90e5f319d9e869a75fd200cce4978ed Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 17 Jun 2025 10:08:05 +0100
Subject: bin: Print usage when arguments are not matched.

* bin/ravanan (print-short-usage): New function.
(main): Print usage when arguments are not matched.
---
 bin/ravanan | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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)))))))
-- 
cgit v1.2.3