aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/ravanan8
1 files changed, 6 insertions, 2 deletions
diff --git a/bin/ravanan b/bin/ravanan
index 0237b58..da7c625 100755
--- a/bin/ravanan
+++ b/bin/ravanan
@@ -89,6 +89,11 @@ Slurm API batch system options:
"
program))
+(define (read-jwt file)
+ "Read JWT token from @var{file}."
+ (call-with-input-file file
+ get-string-all))
+
(define main
(match-lambda
((program args ...)
@@ -141,8 +146,7 @@ Slurm API batch system options:
#:guix-daemon-socket (assq-ref args 'guix-daemon-socket)
#:slurm-api-endpoint (assq-ref args 'slurm-api-endpoint)
#:slurm-jwt (and (assq-ref args 'slurm-jwt)
- (call-with-input-file (assq-ref args 'slurm-jwt)
- get-string-all)))
+ (read-jwt (assq-ref args 'slurm-jwt))))
(current-output-port)
#:pretty #t)
(newline (current-output-port))))))))