publish: Write hashes in nix-base32 format.

* guix/scripts/publish.scm (narinfo-string): Use
  'bytevector->nix-base32-string', not 'bytevector->base32-string'.
This commit is contained in:
Ludovic Courtès 2015-07-18 00:14:04 +02:00
parent 13f0c6ed41
commit 3b307162e8

View file

@ -143,7 +143,7 @@ (define (narinfo-string store-path path-info key)
"Generate a narinfo key/value string for STORE-PATH using the details in "Generate a narinfo key/value string for STORE-PATH using the details in
PATH-INFO. The narinfo is signed with KEY." PATH-INFO. The narinfo is signed with KEY."
(let* ((url (string-append "nar/" (basename store-path))) (let* ((url (string-append "nar/" (basename store-path)))
(hash (bytevector->base32-string (hash (bytevector->nix-base32-string
(path-info-hash path-info))) (path-info-hash path-info)))
(size (path-info-nar-size path-info)) (size (path-info-nar-size path-info))
(references (string-join (references (string-join