me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* 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>
This commit is contained in:
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) (define (find-files-to-wrap directory)
(append-map (append-map
(lambda (dir) (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") (list (string-append directory "/bin")
(string-append directory "/sbin") (string-append directory "/sbin")
(string-append directory "/libexec") (string-append directory "/libexec")