diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-09-04 10:56:14 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-09-07 11:40:25 +0200 |
commit | 2b73d82830a29e60914ca23cc64440adb3ae4d18 (patch) | |
tree | 008cda5c5433202d59a5878d19ae418297651b6e /guix/profiles.scm | |
parent | bd7470185bae15e686c2b2a83d3f61807e6fa527 (diff) |
guix package: Record package provenance in manifest entries.
* guix/profiles.scm (package->manifest-entry): Add #:properties and
honor it.
* guix/scripts/package.scm (package-provenance)
(package->manifest-entry*): New procedures.
(transaction-upgrade-entry, options->installable): Use
'package->manifest-entry*' instead of 'package->manifest-entry'.
Diffstat (limited to 'guix/profiles.scm')
-rw-r--r-- | guix/profiles.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm index f34f4fcff6..8acfcff8c1 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -286,7 +286,8 @@ file name." (manifest-transitive-entries manifest)))) (define* (package->manifest-entry package #:optional (output "out") - #:key (parent (delay #f))) + #:key (parent (delay #f)) + (properties '())) "Return a manifest entry for the OUTPUT of package PACKAGE." ;; For each dependency, keep a promise pointing to its "parent" entry. (letrec* ((deps (map (match-lambda @@ -305,7 +306,8 @@ file name." (dependencies (delete-duplicates deps)) (search-paths (package-transitive-native-search-paths package)) - (parent parent)))) + (parent parent) + (properties properties)))) entry)) (define (packages->manifest packages) |