From 394c89a39435bb4a11517e223130d899bbd5d59c Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 24 Jan 2025 20:26:19 +0000
Subject: slurm-api: Error out when all options have been exhausted.

Prior to this, job-state could still return a value if there were no
errors described in the JSON. This is quite unlikely, but in the
interest of rigour…

* ravanan/slurm-api.scm (job-state): Error out when all options have
been exhausted.
---
 ravanan/slurm-api.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ravanan/slurm-api.scm b/ravanan/slurm-api.scm
index 2719b5f..81a9fc9 100644
--- a/ravanan/slurm-api.scm
+++ b/ravanan/slurm-api.scm
@@ -191,4 +191,5 @@ monad."
                   (string-append
                    "slurmdbd does not report error number 2017 for job ~a;"
                    " don't know what to do"))
-           (state-return (check-api-error response)))))))))
+           (check-api-error response)
+           (error "Unknown slurm API error"))))))))
-- 
cgit v1.2.3