summaryrefslogtreecommitdiff
path: root/build-aux/download.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-03-19 16:57:46 +0100
committerLudovic Courtès <ludo@gnu.org>2013-03-19 16:57:46 +0100
commit881a4cf13ac5ee98bb2fbecdcd5db14e30e96b96 (patch)
treeeaefd045bb57c6d30749f2bbca3b70fe646ae0a1 /build-aux/download.scm
parentce41a4629ce6e9502d62b617dd1a74d646ad5b43 (diff)
downloadpatches-881a4cf13ac5ee98bb2fbecdcd5db14e30e96b96.tar
patches-881a4cf13ac5ee98bb2fbecdcd5db14e30e96b96.tar.gz
Work around <http://bugs.gnu.org/13095> in build-aux/download.scm.
* build-aux/download.scm: Annihilate `shutdown' in (web client). Reported by Aljosha Papsch.
Diffstat (limited to 'build-aux/download.scm')
-rw-r--r--build-aux/download.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/build-aux/download.scm b/build-aux/download.scm
index 62956378ed..c5486f8970 100644
--- a/build-aux/download.scm
+++ b/build-aux/download.scm
@@ -34,6 +34,11 @@
;;"http://www.fdn.fr/~lcourtes/software/guix/packages"
)
+;; 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 (file-name->uri file)
"Return the URI for FILE."
(match (string-tokenize file (char-set-complement (char-set #\/)))