From 9ecda56da7cbae510a7eda82bfbd75a7fbfbe14b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 25 Jan 2025 00:06:31 +0000
Subject: slurm-api: Handle failed state when polling job state.

* ravanan/slurm-api.scm (job-state): Handle failed state.
---
 ravanan/slurm-api.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ravanan/slurm-api.scm b/ravanan/slurm-api.scm
index beb93d0..430b3c7 100644
--- a/ravanan/slurm-api.scm
+++ b/ravanan/slurm-api.scm
@@ -146,6 +146,7 @@ monad."
                      ;; has been scheduled and is running.
                      ((pending running) 'pending)
                      ((completed) 'completed)
+                     ((failed) 'failed)
                      (else (error "Unknown slurm job state" job-state)))))
               (trace 'slurm-api
                      "return ~a state for job ~a" job-state job-id)
-- 
cgit v1.2.3