[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: services: cups: Follow symlinks when installing extensions.
From: |
Andy Wingo |
Subject: |
01/01: services: cups: Follow symlinks when installing extensions. |
Date: |
Thu, 1 Dec 2016 10:03:35 +0000 (UTC) |
wingo pushed a commit to branch master
in repository guix.
commit 4ce8860df9c053e3e111f04adcbb636728954251
Author: Andy Patterson <address@hidden>
Date: Wed Nov 30 16:00:13 2016 -0500
services: cups: Follow symlinks when installing extensions.
* gnu/services/cups.scm (union-directory): Use "stat" when calling
"find-files" to follow symlinks.
---
gnu/services/cups.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gnu/services/cups.scm b/gnu/services/cups.scm
index 391046a..df1843e 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 address@hidden)))
(list address@hidden))
#t))))