aboutsummaryrefslogtreecommitdiff
path: root/guix-download.in
diff options
context:
space:
mode:
Diffstat (limited to 'guix-download.in')
-rw-r--r--guix-download.in10
1 files changed, 5 insertions, 5 deletions
diff --git a/guix-download.in b/guix-download.in
index 44118c9e3f..8a3c2c4100 100644
--- a/guix-download.in
+++ b/guix-download.in
@@ -173,9 +173,9 @@ Report bugs to: ~a.~%") "@PACKAGE_BUGREPORT@"))
(fetch uri port)
(close port)
(add-to-store store (basename (uri-path uri))
- #f #f "sha256" name))))
- (fmt (assq-ref opts 'format)))
- (format #t "~a~%~a~%"
- path
- (fmt (query-path-hash store path)))
+ #t #f "sha256" name))))
+ (hash (call-with-input-file path
+ (compose sha256 get-bytevector-all)))
+ (fmt (assq-ref opts 'format)))
+ (format #t "~a~%~a~%" path (fmt hash))
#t))