diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-12 11:42:20 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-13 14:07:24 +0200 |
| commit | 53c12be40944da8733ac2f2f84dee3e6453e003b (patch) | |
| tree | e68eaf16bd499e3c5fe7e83356b2124837f248cd /src | |
| parent | 92f5d0dfe4ed885f32e6bd92a53e50f7fcaccbb6 (diff) | |
| download | cuirass-53c12be40944da8733ac2f2f84dee3e6453e003b.tar cuirass-53c12be40944da8733ac2f2f84dee3e6453e003b.tar.gz | |
Evaluate derivations in a separate process.
This fixes a bug where different Guix branches gave the same
derivations.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/database.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 2ab5d32..505ef4c 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -93,8 +93,8 @@ database object." (sqlite-exec db (format #f "insert into build (job_spec, drv) values ('~A', '~A');" - (job-name job) - (job-derivation job))) + (assq-ref job #:job-name) + (assq-ref job #:derivation))) (let* ((stmt (sqlite-prepare db "select last_insert_rowid() from build;")) (res (sqlite-step stmt))) (sqlite-finalize stmt) @@ -133,7 +133,7 @@ string." (define (db-add-build-log db job log) "Store a build LOG corresponding to JOB in database DB." - (let ((id (assoc-ref (job-metadata job) 'id)) + (let ((id (assq-ref job #:id)) (log* (cond ((string? log) log) ((port? log) (seek log 0 SEEK_SET) |