services: cups: Follow symlinks when installing extensions.

* gnu/services/cups.scm (union-directory): Use "stat" when calling
"find-files" to follow symlinks.
This commit is contained in:
Andy Patterson 2016-11-30 16:00:13 -05:00 committed by Andy Wingo
parent 8e9badce00
commit 4ce8860df9
No known key found for this signature in database
GPG Key ID: DDC0F5358812F8F2
1 changed files with 1 additions and 1 deletions

View File

@ -894,7 +894,7 @@ IPP specifications.")
(if (file-exists? dst) (if (file-exists? dst)
(format (current-error-port) "warning: ~a exists\n" dst) (format (current-error-port) "warning: ~a exists\n" dst)
(symlink src dst)))) (symlink src dst))))
(find-files (string-append package path)))) (find-files (string-append package path) #:stat stat)))
(list #$@paths))) (list #$@paths)))
(list #$@packages)) (list #$@packages))
#t)))) #t))))