diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-04-22 15:55:08 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-04-26 22:49:48 +0200 |
| commit | 45bd91334f6a932ed65576febd6e71888563cd8f (patch) | |
| tree | f3cca3fc915f1fc6edd971195e5a1e04ec452bfd | |
| parent | cda751105e26c28256169ca9c267d9e2aafd6558 (diff) | |
| download | patches-45bd91334f6a932ed65576febd6e71888563cd8f.tar patches-45bd91334f6a932ed65576febd6e71888563cd8f.tar.gz | |
services: profile: Use a declarative profile.
* gnu/services.scm (packages->profile-entry): Use 'profile' instead of
'profile-derivation'.
| -rw-r--r-- | gnu/services.scm | 8 |
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., |