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