diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-09-06 22:57:46 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-09-06 22:57:46 +0200 |
| commit | 9d9ef458e8bad9fddcee071038d18d6c27f448c2 (patch) | |
| tree | e2ff4e8a03a25838d874fc4fec83e474be2a7849 | |
| parent | 5f805fdf17ac8cdb2be4f3207cdcd018a168fde4 (diff) | |
| download | patches-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.scm | 9 |
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))) ;;; |