From 47ac73e5a73f11b06ed3269936154881bf725e3d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 28 Jun 2025 18:24:07 +0200 Subject: [PATCH] Fix background job processing --- guix-data-service/model/build-status.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/guix-data-service/model/build-status.scm b/guix-data-service/model/build-status.scm index bbf079f..b7a8813 100644 --- 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