diff options
author | Christopher Baines <mail@cbaines.net> | 2023-04-24 14:44:03 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-04-24 14:44:03 +0100 |
commit | 0af7c171eee1e1e338b7cc8e9cd647c30518d478 (patch) | |
tree | 97f8102049783e8bb31c9917e6009296834ee621 /guix-build-coordinator/datastore/sqlite.scm | |
parent | 0da04e42d569db753593645fa26b111d4a22725d (diff) | |
download | build-coordinator-0af7c171eee1e1e338b7cc8e9cd647c30518d478.tar build-coordinator-0af7c171eee1e1e338b7cc8e9cd647c30518d478.tar.gz |
Log the build-id in datastore-find-build-derivation-system
As I'm not sure why a build wouldn't have a system.
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index caecbcc..7b05955 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -2641,18 +2641,21 @@ INNER JOIN systems ON derivations.system_id = systems.id WHERE builds.id = :build_id" #:cache? #t))) - (sqlite-bind-arguments - statement - #:build_id (db-find-build-id db build-uuid)) + (let ((build-id + (db-find-build-id db build-uuid))) + (sqlite-bind-arguments + statement + #:build_id (db-find-build-id db build-uuid)) - (match (sqlite-step-and-reset statement) - (#(system) system) - (#f - (error - (simple-format - #f - "no system for build ~A" - build-uuid)))))))) + (match (sqlite-step-and-reset statement) + (#(system) system) + (#f + (error + (simple-format + #f + "no system for build ~A (~A)" + build-uuid + build-id))))))))) (define-method (datastore-list-builds-for-output (datastore <sqlite-datastore>) |