~ruther/guix-local: guix-download: Print the hash of the file's contents, no that of the path.

a3aa25f83dedc39966821eb14c8c3847c242af6c — Ludovic Courtès 13 years ago 37d1940

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.

patch browse .tar.gz

1 files changed, 5 insertions(+), 5 deletions(-)

M guix-download.in

M guix-download.in => guix-download.in +5 -5

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