diff options
Diffstat (limited to 'bin/cuirass.in')
| -rw-r--r-- | bin/cuirass.in | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index fb4023c..5f89379 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -87,13 +87,11 @@ if required." (assq-ref spec #:name) "/" (assq-ref spec #:load-path)) (%package-cachedir) - (object->string spec))) + (object->string spec) + (%package-database))) (jobs (read port))) (close-pipe port) - ;; Keep track of SPEC id in the returned jobs. - (let ((spec-id (assq-ref spec #:id))) - (map (λ (job) (acons #:spec-id spec-id job)) - jobs)))) + jobs)) (define (build-packages store db jobs) "Build JOBS which is a list of <job> objects." @@ -118,11 +116,7 @@ if required." (compile (string-append (%package-cachedir) "/" (assq-ref spec #:name))) (with-store store - (let* ((jobs (evaluate store db spec))) - (for-each (λ (job) - (or (evaluation-exists? db job) - (db-add-evaluation db job))) - jobs) + (let ((jobs (evaluate store db spec))) (set-build-options store #:use-substitutes? #f) (build-packages store db jobs)))) jobspecs)) |