~ruther/guix-local

b3a53fb3610ff23b75f11d58325110d29451a726 — Ludovic Courtès 13 years ago cdec10f
download: Work around (web client) bug <http://bugs.gnu.org/13095>.

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

M guix/build/download.scm
M guix/build/download.scm => guix/build/download.scm +5 -0
@@ 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."