summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-05-10 15:07:00 +0200
committerLudovic Courtès <ludo@gnu.org>2013-05-10 15:07:00 +0200
commitfe3e603d14ef55b94d3763619f8c06751fa37ca9 (patch)
tree0d06d9282751b3da6b63dd8ba8d3bcb44a1bf68d /guix
parente31ff8b8d0a165b3f403a1269455fa38220821e6 (diff)
refresh: Gracefully handle failure to download a tarball.
* guix/scripts/refresh.scm (guix-refresh): When updating a source file, gracefully handle the case where TARBALL is #f. Reported by Nikita Karetnikov <nikita@karetnikov.org>.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/refresh.scm22
1 files changed, 15 insertions, 7 deletions
diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm
index 69e5114e00..37de3b628d 100644
--- a/guix/scripts/refresh.scm
+++ b/guix/scripts/refresh.scm
@@ -160,13 +160,21 @@ update would trigger a complete rebuild."
'version)
(package-location package))))
(when version
- (format (current-error-port)
- (_ "~a: ~a: updating from version ~a to version ~a...~%")
- (location->string loc) (package-name package)
- (package-version package) version)
- (let ((hash (call-with-input-file tarball
- (compose sha256 get-bytevector-all))))
- (update-package-source package version hash)))))
+ (if (and=> tarball file-exists?)
+ (begin
+ (format (current-error-port)
+ (_ "~a: ~a: updating from version ~a to version ~a...~%")
+ (location->string loc)
+ (package-name package)
+ (package-version package) version)
+ (let ((hash (call-with-input-file tarball
+ (compose sha256
+ get-bytevector-all))))
+ (update-package-source package version
+ hash)))
+ (warning (_ "~a: version ~a could not be \
+downloaded and authenticated; not updating")
+ (package-name package) version)))))
packages))
(for-each (lambda (package)
(match (false-if-exception (package-update-path package))