diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-07-17 22:31:12 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-07-17 22:31:12 +0200 |
| commit | 4f7b564adbc09267fa61ee93292e2fc8a470f9cd (patch) | |
| tree | cbc470d115d5c0fc006d49640599f1f3714bc66a /guix | |
| parent | b78cad85d38efc4de3fa11651111dcf4b8467cdf (diff) | |
| download | guix-4f7b564adbc09267fa61ee93292e2fc8a470f9cd.tar.gz guix-4f7b564adbc09267fa61ee93292e2fc8a470f9cd.tar.xz | |
download: Remove spurious warning about 'https_proxy'.
* guix/build/download.scm (open-connection-for-uri)[with-https-proxy]: Warn
about 'https_proxy' only when 'getenv' returns a non-empty string.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/build/download.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/build/download.scm b/guix/build/download.scm index 65d18eb839..ae59b0109c 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -231,7 +231,8 @@ host name without trailing dot." (resolve-interface '(web client)) 'current-http-proxy)) (parameterize ((current-http-proxy #f)) - (when (getenv "https_proxy") + (when (and=> (getenv "https_proxy") + (negate string-null?)) (format (current-error-port) "warning: 'https_proxy' is ignored~%")) (thunk)) |