me
/
guix
Archived
1
0
Fork 0
Code

qt-build-system: Don't double wrap programs. 

* guix/build/qt-build-system.scm (wrap-all-programs): Excluded wrapped
programs from the list of files to wrap if they exist to avoid double
wrapping.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Brendan Tildesley 2020-09-13 15:45:57 +10:00 committed by Ludovic Courtès
parent b6753aa1e1
commit c90a509dd9
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/build/qt-build-system.scm
View File

@ -111,7 +111,10 @@ add a dependency of that output on Qt."
(define (find-files-to-wrap directory)
(append-map
(lambda (dir)
(if (directory-exists? dir) (find-files dir ".*") (list)))
(if (directory-exists? dir)
(find-files dir (lambda (file stat)
(not (wrapped-program? file))))
'()))
(list (string-append directory "/bin")
(string-append directory "/sbin")
(string-append directory "/libexec")