download: Work around (web client) bug <http://bugs.gnu.org/13095>.

* guix/build/download.scm: Annihilate `shutdown' in (web client).
This commit is contained in:
Ludovic Courtès 2012-12-14 18:07:10 +01:00
parent cdec10f936
commit b3a53fb361
1 changed files with 5 additions and 0 deletions

View File

@ -92,6 +92,11 @@ which is not available during bootstrap."
'set-port-encoding! 'set-port-encoding!
(lambda (p e) #f)) (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) (define (http-fetch uri file)
"Fetch data from URI and write it to FILE. Return FILE on success." "Fetch data from URI and write it to FILE. Return FILE on success."