diff options
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/ravanan | 8 |
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)))))))) |