aboutsummaryrefslogtreecommitdiff
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)