summary refs log tree commit diff
path: root/gnu/services/cups.scm
diff options
context:
space:
mode:
authorAndy Patterson <ajpatter@uwaterloo.ca>2016-11-30 16:00:13 -0500
committerAndy Wingo <wingo@igalia.com>2016-12-01 11:03:20 +0100
commit4ce8860df9c053e3e111f04adcbb636728954251 (patch)
treec5e231fff984bf208d57642f84f3cd84e8996f2a /gnu/services/cups.scm
parent8e9badce006b1589b8cdd45569a54a0a51713fac (diff)
downloadguix-4ce8860df9c053e3e111f04adcbb636728954251.tar.gz
services: cups: Follow symlinks when installing extensions.
* gnu/services/cups.scm (union-directory): Use "stat" when calling
"find-files" to follow symlinks.
Diffstat (limited to 'gnu/services/cups.scm')
-rw-r--r--gnu/services/cups.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/services/cups.scm b/gnu/services/cups.scm
index 391046a75f..df1843e438 100644
--- 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))))