services: Use 'packages->manifest' in 'packages->profile-entry'.

This allows using (PACKAGE OUTPUT) in the packages field.
Reported by Jan Nieuwenhuizen <janneke@gnu.org>.

* gnu/services.scm (packages->profile-entry): Use 'packages->manifest'.
master
宋文武 2016-03-06 21:18:19 +08:00
parent 956ad60cad
commit 60a0886d72
1 changed files with 2 additions and 2 deletions

View File

@ -458,8 +458,8 @@ FILES must be a list of name/file-like object pairs."
(define (packages->profile-entry packages)
"Return a system entry for the profile containing PACKAGES."
(mlet %store-monad ((profile (profile-derivation
(manifest (map package->manifest-entry
(delete-duplicates packages eq?))))))
(packages->manifest
(delete-duplicates packages eq?)))))
(return `(("profile" ,profile)))))
(define profile-service-type