From db90b40dfd9eeff10d4ba88c28d8eef85d72dd04 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 21 Aug 2013 01:16:57 +0200 Subject: substitute-binary: Don't pretend to report download progress on Guile 2.0.5. * guix/scripts/substitute-binary.scm (progress-report-port): On Guile 2.0.5, return PORT directly and emit a warning. --- guix/scripts/substitute-binary.scm | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'guix/scripts/substitute-binary.scm') diff --git a/guix/scripts/substitute-binary.scm b/guix/scripts/substitute-binary.scm index 7398d59957..0fdec456f6 100755 --- a/guix/scripts/substitute-binary.scm +++ b/guix/scripts/substitute-binary.scm @@ -416,9 +416,17 @@ PORT. REPORT-PROGRESS is a two-argument procedure such as that returned by ;; XXX: We're not in control, so we always return anyway. n)) - (make-custom-binary-input-port "progress-port-proc" - read! #f #f - (cut close-port port))) + ;; Since `http-fetch' in Guile 2.0.5 returns all the data once it's done, + ;; don't pretend to report any progress in that case. + (if (version>? (version) "2.0.5") + (make-custom-binary-input-port "progress-port-proc" + read! #f #f + (cut close-port port)) + (begin + (format (current-error-port) (_ "Downloading, please wait...~%")) + (format (current-error-port) + (_ "(Please consider upgrading Guile to get proper progress report.)~%")) + port))) (define %cache-url (or (getenv "GUIX_BINARY_SUBSTITUTE_URL") -- cgit v1.2.3