Add --quiet flag to suppress all logging.

1 files changed, 11 insertions, 2 deletions

diff --git a/bin/ravanan b/bin/ravanan
index ff92487..b45752f 100755
--- a/bin/ravanan
+++ b/bin/ravanan
@@ -98,6 +98,10 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
                                 (cons (string->symbol arg)
                                       (assq-ref result 'traces))))
                         (user-error "Unknown trace subsystem ~a" arg)))))
+        (option (list "quiet") #f #f
+                (lambda (opt name arg result)
+                  (acons 'quiet arg
+                         result)))
         (option (list "help") #f #t
                 (lambda (opt name arg result)
                   (acons 'help #t result)))
@@ -151,6 +155,8 @@ Debugging options:
   --trace=SUBSYSTEM              enable tracing on subsystem;
                                  repeat to trace multiple subsystems
                                  (accepted values: slurm-api)
+  --quiet                        disable all logging and tracing;
+                                 overrides --log-level and --trace
 "
           program))
 
@@ -266,8 +272,11 @@ files that have the token in the @verbatim{SLURM_JWT=token} format."
                                          (user-error "Error loading manifest file ~a"
                                                      file)
                                          (raise-exception c))))))
-                            (parameterize ((%log-level (assq-ref args 'log-level))
-                                           (%traces (assq-ref args 'traces)))
+                            (parameterize ((%log-level (and (not (assq-ref args 'quiet))
+                                                            (assq-ref args 'log-level)))
+                                           (%traces (if (assq-ref args 'quiet)
+                                                        '()
+                                                        (assq-ref args 'traces))))
                               (run-workflow (file-name-stem workflow-file)
                                             (and (assq 'guix-manifest-file args)
                                                  (canonicalize-path