me/guix
Archived
1
0
Fork 0
Code Activity

http-client: Add response headers to '&http-get-error'.

Browse source 
* guix/http-client.scm (&http-get-error)[headers]: New field.
(http-fetch): Initialize the 'headers' field.
This commit is contained in:
Ludovic Courtès 2022-03-03 20:38:36 +01:00
parent 049aefddb2
commit ecad9b2213
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
guix/http-client.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2020, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012-2018, 2020-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2012, 2015 Free Software Foundation, Inc. ;;; Copyright © 2012, 2015 Free Software Foundation, Inc.
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
@ -52,6 +52,7 @@
http-get-error-uri http-get-error-uri
http-get-error-code http-get-error-code
http-get-error-reason http-get-error-reason
http-get-error-headers
http-fetch http-fetch
http-multiple-get http-multiple-get
@ -69,9 +70,10 @@
;; HTTP GET error. ;; HTTP GET error.
(define-condition-type &http-get-error &error (define-condition-type &http-get-error &error
http-get-error? http-get-error?
(uri http-get-error-uri) ; URI (uri http-get-error-uri) ;URI
(code http-get-error-code) ; integer (code http-get-error-code) ;integer
(reason http-get-error-reason)) ; string (reason http-get-error-reason) ;string
(headers http-get-error-headers)) ;alist
(define* (http-fetch uri #:key port (text? #f) (buffered? #t) (define* (http-fetch uri #:key port (text? #f) (buffered? #t)
@ -138,7 +140,8 @@ Raise an '&http-get-error' condition if downloading fails."
(raise (condition (&http-get-error (raise (condition (&http-get-error
(uri uri) (uri uri)
(code code) (code code)
(reason (response-reason-phrase resp))) (reason (response-reason-phrase resp))
(headers (response-headers resp)))
(&message (&message
(message (message
(format (format