aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-04-27 23:00:51 +0200
committerLudovic Courtès <ludo@gnu.org>2013-04-27 23:00:51 +0200
commit89be37a5a3923b161995286b19759f0b828638e8 (patch)
tree4d53448f8f23b7d2063a0e3e777ad2f996e3c6e2
parent61ef22f432933a51dfe9e286488689abb84c1b92 (diff)
downloadguix-89be37a5a3923b161995286b19759f0b828638e8.tar.gz
guix-89be37a5a3923b161995286b19759f0b828638e8.zip
web: Add workaround for <http://bugs.gnu.org/13095>.
* guix/web.scm: Add workaround for <http://bugs.gnu.org/13095>.
-rw-r--r--guix/web.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/guix/web.scm b/guix/web.scm
index 0fa3f8aa0c..2236bfd621 100644
--- a/guix/web.scm
+++ b/guix/web.scm
@@ -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