diff options
| -rw-r--r-- | guix/profiles.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/guix/profiles.scm b/guix/profiles.scm index 208901e484..a0489ab6f3 100644 --- a/guix/profiles.scm +++ b/guix/profiles.scm @@ -422,10 +422,12 @@ explicit and implicit inputs of PACKAGE." #f)) (package-development-inputs package system #:target target)))) -(define (packages->manifest packages) +(define* (packages->manifest packages #:key + (properties default-package-properties)) "Return a list of manifest entries, one for each item listed in PACKAGES. Elements of PACKAGES can be either package objects or package/string tuples -denoting a specific output of a package." +denoting a specific output of a package. PROPERTIES is a procedure taking one +argument and returning an alist." (define inferiors-loaded? ;; This hack allows us to provide seamless integration for inferior ;; packages while not having a hard dependency on (guix inferior). @@ -439,9 +441,11 @@ denoting a specific output of a package." (delete-duplicates (map (match-lambda (((? package? package) output) - (package->manifest-entry package output)) + (package->manifest-entry package output + #:properties (properties package))) ((? package? package) - (package->manifest-entry package)) + (package->manifest-entry package + #:properties (properties package))) ((thing output) (if inferiors-loaded? ((inferior->entry) thing output) |