grafts: Slight simplification.

* guix/grafts.scm (graft-derivation)[output-names]: Use 'derivation-output-names'.
2016-02-27 23:10:48 +01:00 · 2016-02-27 23:10:48 +01:00 · cd05d38812
parent 82f5186650
commit cd05d38812
1 changed files with 1 additions and 3 deletions
--- a/guix/grafts.scm
+++ b/guix/grafts.scm
@ -87,9 +87,7 @@ applied."
       (map derivation-output-path outputs))))

  (define output-names
-    (match (derivation-outputs drv)
-      (((names . outputs) ...)
-       names)))
+    (derivation-output-names drv))

  (define build
    `(begin