diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-11-20 21:07:09 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-11-20 21:07:09 +0000 |
| commit | 40869c6f4ca78a8e4757fb6f10e88353258569a1 (patch) | |
| tree | 111f1f3d932c27e7bd39e5e01623f9b4c1012822 /guix-build-coordinator/datastore | |
| parent | 3f53272c37968a7b1b5c746ad158aa7fc718ca53 (diff) | |
| download | build-coordinator-40869c6f4ca78a8e4757fb6f10e88353258569a1.tar build-coordinator-40869c6f4ca78a8e4757fb6f10e88353258569a1.tar.gz | |
Always reset the statement in db-output->output-id
Diffstat (limited to 'guix-build-coordinator/datastore')
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 805db24..9eaaa4a 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -3424,12 +3424,12 @@ SELECT id FROM outputs WHERE output = :output" (sqlite-bind-arguments statement #:output output) - (match (sqlite-step statement) - (#f #f) - (#(id) - (sqlite-reset statement) + (let ((result (match (sqlite-step statement) + (#f #f) + (#(id) id)))) + (sqlite-reset statement) - id)))) + result))) (define (insert-derivation-outputs db derivation-name derivation-outputs) (define output-has-successful-build? |