mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-23 10:47:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* guix/build/qt-build-system .scm (handle-output): Use directory of
  output, not its name.
This commit is contained in:
Hartmut Goebel 2019-12-07 20:41:24 +01:00
parent ebce20b2c8
commit f69439dff4
No known key found for this signature in database
GPG key ID: 634A8DFFD3F631DF
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/build/qt-build-system.scm
View file

@ -90,7 +90,7 @@ (define handle-output
(unless (member output qt-wrap-excluded-outputs) (unless (member output qt-wrap-excluded-outputs)
(let ((bin-list (find-files-to-wrap directory)) (let ((bin-list (find-files-to-wrap directory))
(vars-to-wrap (variables-for-wrapping (vars-to-wrap (variables-for-wrapping
(append (list output) (append (list directory)
input-directories)))) input-directories))))
(when (not (null? vars-to-wrap)) (when (not (null? vars-to-wrap))
(for-each (cut apply wrap-program <> vars-to-wrap) (for-each (cut apply wrap-program <> vars-to-wrap)