From a3aa25f83dedc39966821eb14c8c3847c242af6c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 8 Nov 2012 00:25:26 +0100
Subject: [PATCH] guix-download: Print the hash of the file's contents, no that
of the path.
* guix-download.in (guix-download): Display the hash of the contents of
PATH, not the path hash. Also, call `add-to-store' with FIXED? = #t.
---
guix-download.in | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/guix-download.in b/guix-download.in
index 44118c9e3f7..8a3c2c4100d 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))
--
GitLab