diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-16 22:23:10 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-16 22:23:10 +0000 |
| commit | 3bb12aa0d7cbbbbeeaa926302a19cf4c8594bb37 (patch) | |
| tree | e7210c4637d832c1ad1d1ca1da81d83acf052b45 /guix-build-coordinator | |
| parent | 73e002990f11e3e9fbcd2803b284c75f8e00dde5 (diff) | |
| download | build-coordinator-3bb12aa0d7cbbbbeeaa926302a19cf4c8594bb37.tar build-coordinator-3bb12aa0d7cbbbbeeaa926302a19cf4c8594bb37.tar.gz | |
Tweak datastore-list-unbuilt-derivation-outputs
So it works with the code in handle-build-result.
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index ce6ea91..e2ea574 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -2547,7 +2547,7 @@ WHERE derivation_name = :derivation_name" (sqlite-prepare db " -SELECT derivation_outputs.output +SELECT derivation_outputs.name, derivation_outputs.output FROM derivation_outputs INNER JOIN unbuilt_outputs ON derivation_outputs.output = unbuilt_outputs.output @@ -2561,7 +2561,9 @@ WHERE derivation_name = :derivation_name" (let ((result (sqlite-map (match-lambda - (#(output) output)) + (#(name output) + `((name . ,name) + (output . ,output)))) statement))) (sqlite-reset statement) |