~ruther/guix-local

89be37a5a3923b161995286b19759f0b828638e8 — Ludovic Courtès 13 years ago 61ef22f
web: Add workaround for <http://bugs.gnu.org/13095>.

* guix/web.scm: Add workaround for <http://bugs.gnu.org/13095>.
1 files changed, 4 insertions(+), 0 deletions(-)

M guix/web.scm
M guix/web.scm => guix/web.scm +4 -0
@@ 136,6 136,10 @@ closed it will also close PORT, unless the KEEP-ALIVE? is true."
   (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