summaryrefslogtreecommitdiff
path: root/gnu/services.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-22 15:55:08 +0200
committerLudovic Courtès <ludo@gnu.org>2020-04-26 22:49:48 +0200
commit45bd91334f6a932ed65576febd6e71888563cd8f (patch)
treef3cca3fc915f1fc6edd971195e5a1e04ec452bfd /gnu/services.scm
parentcda751105e26c28256169ca9c267d9e2aafd6558 (diff)
downloadpatches-45bd91334f6a932ed65576febd6e71888563cd8f.tar
patches-45bd91334f6a932ed65576febd6e71888563cd8f.tar.gz
services: profile: Use a declarative profile.
* gnu/services.scm (packages->profile-entry): Use 'profile' instead of 'profile-derivation'.
Diffstat (limited to 'gnu/services.scm')
-rw-r--r--gnu/services.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/services.scm b/gnu/services.scm
index 126e0814eb..ada6268a0b 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -691,10 +691,10 @@ executables, making them setuid-root.")))
(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.,