services: cups: Follow symlinks when installing extensions.
* gnu/services/cups.scm (union-directory): Use "stat" when calling "find-files" to follow symlinks.
This commit is contained in:
parent
8e9badce00
commit
4ce8860df9
|
@ -894,7 +894,7 @@ IPP specifications.")
|
||||||
(if (file-exists? dst)
|
(if (file-exists? dst)
|
||||||
(format (current-error-port) "warning: ~a exists\n" dst)
|
(format (current-error-port) "warning: ~a exists\n" dst)
|
||||||
(symlink src dst))))
|
(symlink src dst))))
|
||||||
(find-files (string-append package path))))
|
(find-files (string-append package path) #:stat stat)))
|
||||||
(list #$@paths)))
|
(list #$@paths)))
|
||||||
(list #$@packages))
|
(list #$@packages))
|
||||||
#t))))
|
#t))))
|
||||||
|
|
Loading…
Reference in New Issue