diff options
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index e598d37..03ef4cc 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -717,7 +717,7 @@ WHERE related_derivations.id != :derivation_id (sqlite-bind-arguments statement - #:derivation (db-find-derivation-id db derivation)) + #:derivation_id (db-find-derivation-id db derivation)) (let ((result (sqlite-map (match-lambda @@ -843,7 +843,7 @@ INNER JOIN related_derivations (sqlite-bind-arguments statement - #:derivation (db-find-derivation-id db derivation)) + #:derivation_id (db-find-derivation-id db derivation)) (let ((result (sqlite-map (match-lambda @@ -3100,7 +3100,7 @@ WHERE output = :output (sqlite-bind-arguments statement - #:derivation start-derivation-name + #:derivation_id (db-find-derivation-id db start-derivation-name) #:output output) (let ((result |