grafts: Slight simplification.

* guix/grafts.scm (graft-derivation)[output-names]: Use
'derivation-output-names'.
This commit is contained in:
Ludovic Courtès 2016-02-27 23:10:48 +01:00
parent 82f5186650
commit cd05d38812
1 changed files with 1 additions and 3 deletions

View File

@ -87,9 +87,7 @@ applied."
(map derivation-output-path outputs)))) (map derivation-output-path outputs))))
(define output-names (define output-names
(match (derivation-outputs drv) (derivation-output-names drv))
(((names . outputs) ...)
names)))
(define build (define build
`(begin `(begin