From a3aa25f83dedc39966821eb14c8c3847c242af6c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 8 Nov 2012 00:25:26 +0100 Subject: 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(-) (limited to 'guix-download.in') 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)) -- cgit v1.2.1