diff options
| author | Mark H Weaver <mhw@netris.org> | 2016-01-28 07:29:13 -0500 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2016-01-28 07:29:13 -0500 |
| commit | 593c366bded5d5f6638a3e80edb1c6e473149fce (patch) | |
| tree | eb58d26a878a22c79931fd8cfc2479dea28ab0a6 /guix/build/utils.scm | |
| parent | 133056bd743e4a3d534a4e4ba9ed83dbbfbfbd19 (diff) | |
| parent | 29a780147d066d5ce218d1fa2678a0a36a1145e3 (diff) | |
Merge branch 'core-updates'
Diffstat (limited to 'guix/build/utils.scm')
| -rw-r--r-- | guix/build/utils.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm index e3f9edc5b5..2988193fce 100644 --- a/guix/build/utils.scm +++ b/guix/build/utils.scm @@ -385,10 +385,13 @@ for under the directories designated by FILES. For example: (append-map (lambda (input) (append-map (lambda (file) (let ((file (string-append input "/" file))) - ;; XXX: By using 'find-files', we implicitly - ;; assume #:type 'regular. (if pattern - (find-files file pattern) + (find-files file (lambda (file stat) + (and stat + (eq? type (stat:type stat)) + ((file-name-predicate pattern) file stat))) + #:stat stat + #:directories? #t) (let ((stat (stat file #f))) (if (and stat (eq? type (stat:type stat))) (list file) |