cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix background job processing

Browse source
This commit is contained in:
Christopher Baines 2025-06-28 18:24:07 +02:00
parent 3f16f59d97
commit 47ac73e5a7
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/model/build-status.scm
View file

@ -60,7 +60,11 @@ SELECT timestamp, status
FROM latest_build_status FROM latest_build_status
WHERE build_id = $1") 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) (define (insert-build-status conn build-id timestamp status)
(insert-build-statuses (insert-build-statuses