diff options
| author | 宋文武 <iyzsong@gmail.com> | 2016-03-06 21:18:19 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2016-03-07 09:57:20 +0800 |
| commit | 60a0886d722c86a882fe1d1e1914547d2a160ffb (patch) | |
| tree | 822986cbedad45f0437a5c47cd8ad72766b26815 | |
| parent | 956ad60cadbea000c1247afee91f48ca2e33c14d (diff) | |
| download | gnu-guix-60a0886d722c86a882fe1d1e1914547d2a160ffb.tar gnu-guix-60a0886d722c86a882fe1d1e1914547d2a160ffb.tar.gz | |
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'.
| -rw-r--r-- | gnu/services.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/services.scm b/gnu/services.scm index ffba418e88..cff6ed3a43 100644 --- a/gnu/services.scm +++ b/gnu/services.scm @@ -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 |