nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

http: Check the HTTP response code, and bail if not 200. 

* guix/build/http.scm (http-fetch): Check RESP's code; error out when
  it's not 200.
This commit is contained in:
Ludovic Courtès 2012-11-09 00:19:20 +01:00
parent 7bdd1f0e3c
commit e722af7522
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
guix/build/http.scm
View File

@ -17,8 +17,9 @@
;;; along with Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (guix build http) (define-module (guix build http)
#:use-module (web client)
#:use-module (web uri) #:use-module (web uri)
#:use-module (web client)
#:use-module (web response)
#:use-module (rnrs io ports) #:use-module (rnrs io ports)
#:use-module (srfi srfi-11) #:use-module (srfi srfi-11)
#:export (http-fetch)) #:export (http-fetch))
@ -83,8 +84,14 @@ which is not available during bootstrap."
((connection) ((connection)
(open-connection-for-uri uri)) (open-connection-for-uri uri))
((resp bv) ((resp bv)
(http-get uri #:port connection #:decode-body? #f))) (http-get uri #:port connection #:decode-body? #f))
(call-with-output-file file ((code)
(lambda (p) (response-code resp)))
(put-bytevector p bv)))) (if (= 200 code)
file) (begin
(call-with-output-file file
(lambda (p)
(put-bytevector p bv)))
file)
(error "download failed" url
code (response-reason-phrase resp)))))