summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2024-09-13 03:58:18 +0100
committerArun Isaac2024-09-13 03:58:18 +0100
commit7337e4ae6994f2e53b37f98b1134cc23c64de952 (patch)
treeae463b49c3947d0ee7fc5b43e8db6685848d0f8e
parentd611d990b297b3d573d7d5af83e9376744d51dd5 (diff)
downloadravanan-7337e4ae6994f2e53b37f98b1134cc23c64de952.tar.gz
ravanan-7337e4ae6994f2e53b37f98b1134cc23c64de952.tar.lz
ravanan-7337e4ae6994f2e53b37f98b1134cc23c64de952.zip
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.
-rw-r--r--ravanan/job-state.scm4
1 files changed, 3 insertions, 1 deletions
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)