summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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))