diff options
| author | Andy Patterson <ajpatter@uwaterloo.ca> | 2016-11-30 16:00:13 -0500 |
|---|---|---|
| committer | Andy Wingo <wingo@igalia.com> | 2016-12-01 11:03:20 +0100 |
| commit | 4ce8860df9c053e3e111f04adcbb636728954251 (patch) | |
| tree | c5e231fff984bf208d57642f84f3cd84e8996f2a | |
| parent | 8e9badce006b1589b8cdd45569a54a0a51713fac (diff) | |
| download | guix-4ce8860df9c053e3e111f04adcbb636728954251.tar guix-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.
| -rw-r--r-- | gnu/services/cups.scm | 2 |
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)))) |