derivations: 'graft-derivation' correctly handles multiple-output sources.

* guix/derivations.scm (graft-derivation): Add DRV as input for each one of OUTPUT-NAMES.
2014-10-15 23:55:36 +02:00 · 2014-10-15 23:55:36 +02:00 · e5997888fa
commit e5997888fa
parent 8dcec91426
1 changed files with 3 additions and 1 deletions
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@ -1040,7 +1040,9 @@ (define add-label
                                     #:guile-for-build guile
                                     #:modules '((guix build graft)
                                                 (guix build utils))
-                                     #:inputs `(("original" ,drv)
+                                     #:inputs `(,@(map (lambda (out)
+                                                         `("x" ,drv ,out))
+                                                       output-names)
                                                ,@(append (map add-label sources)
                                                          (map add-label targets)))
                                     #:outputs output-names