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.

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