~ruther/guix-local: services: cups: Follow symlinks when installing extensions.

4ce8860df9c053e3e111f04adcbb636728954251 — Andy Patterson 9 years ago 8e9badc

services: cups: Follow symlinks when installing extensions.

* gnu/services/cups.scm (union-directory): Use "stat" when calling
"find-files" to follow symlinks.

patch browse .tar.gz

1 files changed, 1 insertions(+), 1 deletions(-)

M gnu/services/cups.scm

M gnu/services/cups.scm => gnu/services/cups.scm +1 -1

@@ 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))))