From 89be37a5a3923b161995286b19759f0b828638e8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 27 Apr 2013 23:00:51 +0200
Subject: [PATCH] web: Add workaround for <http://bugs.gnu.org/13095>.

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

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