summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-09-06 22:57:46 +0200
committerLudovic Courtès <ludo@gnu.org>2012-09-06 22:57:46 +0200
commit9d9ef458e8bad9fddcee071038d18d6c27f448c2 (patch)
treee2ff4e8a03a25838d874fc4fec83e474be2a7849
parent5f805fdf17ac8cdb2be4f3207cdcd018a168fde4 (diff)
downloadpatches-9d9ef458e8bad9fddcee071038d18d6c27f448c2.tar
patches-9d9ef458e8bad9fddcee071038d18d6c27f448c2.tar.gz
utils: Make `set-path-environment-variable' verbose.
* guix/build/utils.scm (set-path-environment-variable): Print ENV-VAR and its value.
-rw-r--r--guix/build/utils.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index 6005813f77..148f62ec51 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -98,10 +98,11 @@ SEPARATOR-separated path accordingly. Example:
'(\"lib/pkgconfig\")
(list package1 package2))
"
- (setenv env-var
- (list->search-path-as-string (search-path-as-list sub-directories
- input-dirs)
- separator)))
+ (let* ((path (search-path-as-list sub-directories input-dirs))
+ (value (list->search-path-as-string path separator)))
+ (setenv env-var value)
+ (format #t "environment variable `~a' set to `~a'~%"
+ env-var value)))
;;;