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'.
This commit is contained in:
parent
956ad60cad
commit
60a0886d72
1 changed files with 2 additions and 2 deletions
|
|
@ -458,8 +458,8 @@ FILES must be a list of name/file-like object pairs."
|
||||||
(define (packages->profile-entry packages)
|
(define (packages->profile-entry packages)
|
||||||
"Return a system entry for the profile containing PACKAGES."
|
"Return a system entry for the profile containing PACKAGES."
|
||||||
(mlet %store-monad ((profile (profile-derivation
|
(mlet %store-monad ((profile (profile-derivation
|
||||||
(manifest (map package->manifest-entry
|
(packages->manifest
|
||||||
(delete-duplicates packages eq?))))))
|
(delete-duplicates packages eq?)))))
|
||||||
(return `(("profile" ,profile)))))
|
(return `(("profile" ,profile)))))
|
||||||
|
|
||||||
(define profile-service-type
|
(define profile-service-type
|
||||||
|
|
|
||||||
Reference in a new issue