From 8bdefdffb27aabdf425be5afce0bcae64c6c9522 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 13 Sep 2024 23:09:07 +0100
Subject: bin: Refactor JWT reading into separate function.

* bin/ravanan (read-jwt): New function.
(main): Call read-jwt.
---
 bin/ravanan | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'bin')

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