services: cups: Follow symlinks when installing extensions.

* gnu/services/cups.scm (union-directory): Use "stat" when calling "find-files" to follow symlinks.
2016-11-30 16:00:13 -05:00 · 2016-11-30 16:00:13 -05:00 · 4ce8860df9
commit 4ce8860df9
parent 8e9badce00
1 changed files with 1 additions and 1 deletions
--- a/gnu/services/cups.scm
+++ b/gnu/services/cups.scm
@ -894,7 +894,7 @@ IPP specifications.")
                    (if (file-exists? dst)
                        (format (current-error-port) "warning: ~a exists\n" dst)
                        (symlink src dst))))
-                (find-files (string-append package path))))
+                (find-files (string-append package path) #:stat stat)))
             (list #$@paths)))
          (list #$@packages))
         #t))))