web: Add workaround for <http://bugs.gnu.org/13095>.

* guix/web.scm: Add workaround for <http://bugs.gnu.org/13095>.
This commit is contained in:
Ludovic Courtès 2013-04-27 23:00:51 +02:00
parent 61ef22f432
commit 89be37a5a3

View file

@ -136,6 +136,10 @@ (define bad-response
(module-set! (resolve-module '(web response))
'read-response-body read-response-body*)))
;; XXX: Work around <http://bugs.gnu.org/13095>, present in Guile
;; up to 2.0.7.
(module-define! (resolve-module '(web client))
'shutdown (const #f))
(define* (http-fetch uri #:key (text? #f))
"Return an input port containing the data at URI, and the expected number of