utils: Make `set-path-environment-variable' verbose.

* guix/build/utils.scm (set-path-environment-variable): Print ENV-VAR
  and its value.
This commit is contained in:
Ludovic Courtès 2012-09-06 22:57:46 +02:00
parent 5f805fdf17
commit 9d9ef458e8
1 changed files with 5 additions and 4 deletions

View File

@ -98,10 +98,11 @@ SEPARATOR-separated path accordingly. Example:
'(\"lib/pkgconfig\") '(\"lib/pkgconfig\")
(list package1 package2)) (list package1 package2))
" "
(setenv env-var (let* ((path (search-path-as-list sub-directories input-dirs))
(list->search-path-as-string (search-path-as-list sub-directories (value (list->search-path-as-string path separator)))
input-dirs) (setenv env-var value)
separator))) (format #t "environment variable `~a' set to `~a'~%"
env-var value)))
;;; ;;;