utils: Export 'search-path-as-list'.
* guix/build/utils.scm (search-path-as-list): Make public. * guix/scripts/environment.scm (for-each-search-path): Use it.
This commit is contained in:
parent
7b21fe5385
commit
bd2fc4d813
|
@ -45,6 +45,7 @@
|
||||||
delete-file-recursively
|
delete-file-recursively
|
||||||
find-files
|
find-files
|
||||||
|
|
||||||
|
search-path-as-list
|
||||||
set-path-environment-variable
|
set-path-environment-variable
|
||||||
search-path-as-string->list
|
search-path-as-string->list
|
||||||
list->search-path-as-string
|
list->search-path-as-string
|
||||||
|
|
|
@ -45,9 +45,8 @@ path value is appended."
|
||||||
(($ <search-path-specification>
|
(($ <search-path-specification>
|
||||||
variable directories separator)
|
variable directories separator)
|
||||||
(let* ((current (getenv variable))
|
(let* ((current (getenv variable))
|
||||||
(path ((@@ (guix build utils) search-path-as-list)
|
(path (search-path-as-list directories paths))
|
||||||
directories paths))
|
(value (list->search-path-as-string path separator)))
|
||||||
(value (list->search-path-as-string path separator)))
|
|
||||||
(proc variable
|
(proc variable
|
||||||
(if (and current (not pure?))
|
(if (and current (not pure?))
|
||||||
(string-append value separator current)
|
(string-append value separator current)
|
||||||
|
|
Loading…
Reference in New Issue