diff options
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index e4a5aab..c3859de 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -697,16 +697,17 @@ SELECT id, build_id, agent_id, failure_reason FROM setup_failures"))) (match row (#(id build-id agent-id failure-reason) (let ((failures-for-build-id - (or (assoc-ref result build-id) + (or (hash-ref result build-id) '()))) - (alist-cons + (hash-set! + result build-id (cons `((id . ,id) (agent-id . ,agent-id) (failure-reason . ,failure-reason)) - failures-for-build-id) - (alist-delete build-id result)))))) - '() + failures-for-build-id))))) + result) + (make-hash-table) statement))) (sqlite-reset statement) |