diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-09-13 10:32:49 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-09-13 10:32:49 +0100 |
| commit | d9621a2332e9a36c0bc3aff8ae03d62c5e2b3995 (patch) | |
| tree | affc7b2cccf184b109b23f86f1de17ae3d2897c0 | |
| parent | ce75afe3ea21fe68e0e2ea45976f5e51074c3b3e (diff) | |
| download | build-coordinator-d9621a2332e9a36c0bc3aff8ae03d62c5e2b3995.tar build-coordinator-d9621a2332e9a36c0bc3aff8ae03d62c5e2b3995.tar.gz | |
Fix insert-derivation-and-return-outputs
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 13d9ec7..c598b43 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -1962,7 +1962,7 @@ WHERE derivation_inputs.derivation_name = :derivation_name" (derivation-file-name derivation)) (define (insert-derivation) - (let ((derivation-details (db-find-derivation db derivation)) + (let ((derivation-details (db-find-derivation db derivation-name)) (fixed-output? (fixed-output-derivation? derivation))) (if derivation-details (begin @@ -1987,7 +1987,7 @@ INSERT OR IGNORE INTO derivations (name, system, fixed_output) statement #:name derivation-name #:system (derivation-system derivation) - #:fixed_output fixed-output?) + #:fixed_output (if fixed-output? 1 0)) (sqlite-step statement) (sqlite-reset statement) |