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.
This commit is contained in:
Ludovic Courtès 2012-11-08 00:25:26 +01:00
parent 37d19403e7
commit a3aa25f83d
1 changed files with 5 additions and 5 deletions

View File

@ -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))