summaryrefslogtreecommitdiff
path: root/guix/web.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/web.scm')
-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