02/02: build-system: qt: Fix output missing in wrapped variables.

[guix-commits]

htgoebel pushed a commit to branch master
in repository guix.

commit f69439dff438e59fbd24b76949b8767360f2cd72
Author: Hartmut Goebel <address@hidden>
Date:   Sat Dec 7 20:41:24 2019 +0100

    build-system: qt: Fix output missing in wrapped variables.
    
    * guix/build/qt-build-system .scm (handle-output): Use directory of
      output, not its name.
---
 guix/build/qt-build-system.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/build/qt-build-system.scm b/guix/build/qt-build-system.scm
index 46fcad7..be2b808 100644
--- a/guix/build/qt-build-system.scm
+++ b/guix/build/qt-build-system.scm
@@ -90,8 +90,8 @@ add a dependency of that output on Qt."
       (unless (member output qt-wrap-excluded-outputs)
         (let ((bin-list     (find-files-to-wrap directory))
               (vars-to-wrap (variables-for-wrapping
-                             (append (list output)
-                                         input-directories))))
+                             (append (list directory)
+                                     input-directories))))
           (when (not (null? vars-to-wrap))
             (for-each (cut apply wrap-program <> vars-to-wrap)
                       bin-list)))))))