services: profile: Use a declarative profile.

* gnu/services.scm (packages->profile-entry): Use 'profile' instead of
'profile-derivation'.
This commit is contained in:
Ludovic Courtès 2020-04-22 15:55:08 +02:00
parent cda751105e
commit 45bd91334f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -691,10 +691,10 @@ (define setuid-program-service-type
(define (packages->profile-entry packages)
"Return a system entry for the profile containing PACKAGES."
(mlet %store-monad ((profile (profile-derivation
(packages->manifest
(delete-duplicates packages eq?)))))
(return `(("profile" ,profile)))))
(with-monad %store-monad
(return `(("profile" ,(profile
(content (packages->manifest
(delete-duplicates packages eq?)))))))))
(define profile-service-type
;; The service that populates the system's profile---i.e.,