From 7337e4ae6994f2e53b37f98b1134cc23c64de952 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 13 Sep 2024 03:58:18 +0100
Subject: job-state: Pass on slurm API endpoint and jwt recursively.

* ravanan/job-state.scm (job-state-status): Pass on slurm API endpoint
and jwt recursively.
---
 ravanan/job-state.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ravanan/job-state.scm b/ravanan/job-state.scm
index 8944035..45ccb37 100644
--- a/ravanan/job-state.scm
+++ b/ravanan/job-state.scm
@@ -76,7 +76,9 @@
    ;; all state elements have completed.
    ((vector? state)
     (or (vector-every (lambda (state-element)
-                        (case (job-state-status state-element)
+                        (case (job-state-status state-element
+                                                #:slurm-api-endpoint slurm-api-endpoint
+                                                #:slurm-jwt slurm-jwt)
                           ((completed) => identity)
                           (else #f)))
                       state)
-- 
cgit v1.2.3