diff options
author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-24 17:48:03 +0200 |
---|---|---|
committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-25 02:38:38 +0200 |
commit | fccd6fa60b0a2345b5ea1c68ca07c443a03b7109 (patch) | |
tree | 0c55610dfa6f210d38b44b47e15a06965d262de4 /bin/cuirass.in | |
parent | efb249b056fe7ff6a4788de510cf6c344f20612c (diff) | |
download | cuirass-fccd6fa60b0a2345b5ea1c68ca07c443a03b7109.tar cuirass-fccd6fa60b0a2345b5ea1c68ca07c443a03b7109.tar.gz |
evaluate: Store evaluations in evaluate script.
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)) |