From b3a53fb3610ff23b75f11d58325110d29451a726 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 14 Dec 2012 18:07:10 +0100
Subject: [PATCH] download: Work around (web client) bug
 <http://bugs.gnu.org/13095>.

* guix/build/download.scm: Annihilate `shutdown' in (web client).
---
 guix/build/download.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/guix/build/download.scm b/guix/build/download.scm
index 9d90971f28..c09351cee4 100644
--- a/guix/build/download.scm
+++ b/guix/build/download.scm
@@ -92,6 +92,11 @@ which is not available during bootstrap."
                 'set-port-encoding!
                 (lambda (p e) #f))
 
+;; 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 file)
   "Fetch data from URI and write it to FILE.  Return FILE on success."