aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-12-14 18:07:10 +0100
committerLudovic Courtès <ludo@gnu.org>2012-12-14 18:07:10 +0100
commitb3a53fb3610ff23b75f11d58325110d29451a726 (patch)
tree388bccbb82aef66d053912865f1681f1eb281a47
parentcdec10f9368a1b69664db85b6bd029b136329b2c (diff)
downloadpatches-b3a53fb3610ff23b75f11d58325110d29451a726.tar
patches-b3a53fb3610ff23b75f11d58325110d29451a726.tar.gz
download: Work around (web client) bug <http://bugs.gnu.org/13095>.
* guix/build/download.scm: Annihilate `shutdown' in (web client).
-rw-r--r--guix/build/download.scm5
1 files changed, 5 insertions, 0 deletions
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."