protect `raco setup' from files in linked collection dirs
Patch by Jay McCarthy. Merge to 5.2.1
This commit is contained in:
parent
8b54dc43c8
commit
d56d28f0b6
|
@ -305,7 +305,8 @@
|
|||
(maybe (list (string->path c)) ->cc))
|
||||
(for ([cp (in-list (links #:root? #t #:user? #f))]
|
||||
#:when (directory-exists? cp)
|
||||
[collection (directory-list cp)])
|
||||
[collection (directory-list cp)]
|
||||
#:when (directory-exists? (build-path cp collection)))
|
||||
(maybe (list collection) ->cc)))
|
||||
(when (make-user)
|
||||
(let ([user-collects (find-user-collects-dir)])
|
||||
|
@ -318,7 +319,8 @@
|
|||
(maybe (list (string->path c)) ->cc))
|
||||
(for ([cp (in-list (links #:root? #t))]
|
||||
#:when (directory-exists? cp)
|
||||
[collection (directory-list cp)])
|
||||
[collection (directory-list cp)]
|
||||
#:when (directory-exists? (build-path cp collection)))
|
||||
(maybe (list collection) ->cc))))
|
||||
(hash-map ht (lambda (k v) v))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user