Fix background job processing

2025-06-28 18:24:07 +02:00 · 2025-06-28 18:24:07 +02:00 · 47ac73e5a7
commit 47ac73e5a7
parent 3f16f59d97
1 changed files with 5 additions and 1 deletions
--- a/guix-data-service/model/build-status.scm
+++ b/guix-data-service/model/build-status.scm
@ -60,7 +60,11 @@ SELECT timestamp, status
 FROM latest_build_status
 WHERE build_id = $1")

-  (exec-query conn query (list (number->string build-id))))
+  (match (exec-query conn query (list (number->string build-id)))
+    (() #f)
+    (((timestamp status))
+     (values status
+             timestamp))))

 (define (insert-build-status conn build-id timestamp status)
  (insert-build-statuses