summaryrefslogtreecommitdiff
path: root/guix/search-paths.scm
diff options
context:
space:
mode:
authorEric Bavier <bavier@member.fsf.org>2015-10-05 21:38:19 -0500
committerEric Bavier <bavier@member.fsf.org>2015-10-29 17:30:18 -0500
commitc6e030b2e3965222e6bb27306311aaec9c7ae93c (patch)
treeea430d9be0f08078bf5f117bee9e84259cc9927a /guix/search-paths.scm
parent71eb843837c7ad2f8dfff8b07092e379ab547bb8 (diff)
utils: Have search-path-as-list pattern search for directories.
* guix/build/utils.scm (search-path-as-list)[pattern]: Check requested file type. Check pattern against directory names. * guix/search-paths.scm (evaluate-search-paths)[pattern]: Remove symlink hack.
Diffstat (limited to 'guix/search-paths.scm')
-rw-r--r--guix/search-paths.scm6
1 files changed, 0 insertions, 6 deletions
diff --git a/guix/search-paths.scm b/guix/search-paths.scm
index 7fd15d440c..7a6fe67959 100644
--- a/guix/search-paths.scm
+++ b/guix/search-paths.scm
@@ -139,12 +139,6 @@ report only settings not already effective."
(let* ((values (or (and=> (getenv variable)
(cut string-tokenize* <> separator))
'()))
- ;; Add a trailing slash to force symlinks to be treated as
- ;; directories when 'find-files' traverses them.
- (files (if pattern
- (map (cut string-append <> "/") files)
- files))
-
;; XXX: Silence 'find-files' when it stumbles upon non-existent
;; directories (see
;; <http://lists.gnu.org/archive/html/guix-devel/2015-01/msg00269.html>.)