diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-01-10 15:34:11 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-01-10 15:34:11 +0100 |
| commit | dd1141eba2cd92cde0fb7c4dc736fac533886a8d (patch) | |
| tree | f2f005af48829a516e57d4b9825af5265782948b /guix/http-client.scm | |
| parent | b1a505baf61cc771197eb44af9173f31d2bace46 (diff) | |
| download | gnu-guix-dd1141eba2cd92cde0fb7c4dc736fac533886a8d.tar gnu-guix-dd1141eba2cd92cde0fb7c4dc736fac533886a8d.tar.gz | |
http-client: Improve error reporting.
* guix/http-client.scm (http-fetch): Change message in &message
condition to include URI, CODE, and the reason phrase.
Diffstat (limited to 'guix/http-client.scm')
| -rw-r--r-- | guix/http-client.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix/http-client.scm b/guix/http-client.scm index cc3acc9587..0090783524 100644 --- a/guix/http-client.scm +++ b/guix/http-client.scm @@ -276,7 +276,12 @@ Raise an '&http-get-error' condition if downloading fails." (code code) (reason (response-reason-phrase resp))) (&message - (message "download failed")))))))))) + (message + (format + #f + (_ "~a: HTTP download failed: ~a (~s)") + (uri->string uri) code + (response-reason-phrase resp)))))))))))) ;;; |