1 files changed, 1 insertions(+), 3 deletions(-)

M 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