From cd05d388121d6a9d7ee83aefa29d3c3b255b7552 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 27 Feb 2016 23:10:48 +0100
Subject: grafts: Slight simplification.

* guix/grafts.scm (graft-derivation)[output-names]: Use
'derivation-output-names'.
---
 guix/grafts.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'guix/grafts.scm')

diff --git a/guix/grafts.scm b/guix/grafts.scm
index a1f7d8801a..339f273b76 100644
--- 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
-- 
cgit v1.2.3