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 9d90971f280..c09351cee42 100644
--- a/guix/build/download.scm
+++ b/guix/build/download.scm
@@ -92,6 +92,11 @@ (define addresses
'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."
--
GitLab