import: gnu: Use guix-hash-url.

* guix/import/gnu.scm (gnu-package->sexp): Use guix-hash-url.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Nicolas Graves 2025-09-16 19:02:07 +02:00 committed by Ludovic Courtès
parent 2c1e7f1cc4
commit d3b5b7c198
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -24,8 +24,6 @@
#:use-module (guix import utils) #:use-module (guix import utils)
#:use-module (guix i18n) #:use-module (guix i18n)
#:use-module (guix store) #:use-module (guix store)
#:use-module (gcrypt hash)
#:use-module (guix base32)
#:use-module (guix upstream) #:use-module (guix upstream)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
@ -87,14 +85,13 @@ download policy (see 'download-tarball' for details.)"
`(package `(package
(name ,name) (name ,name)
(version ,(upstream-source-version release)) (version ,(upstream-source-version release))
(source (origin (source
(method url-fetch) (origin
(uri (string-append ,url-base version (method url-fetch)
,(string-append ".tar." archive-type))) (uri (string-append ,url-base version
(sha256 ,(string-append ".tar." archive-type)))
(base32 (sha256
,(bytevector->nix-base32-string (base32 (guix-hash-url tarball)))))
(file-sha256 tarball))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(synopsis ,(gnu-package-doc-summary package)) (synopsis ,(gnu-package-doc-summary package))
(description ,(beautify-description (description ,(beautify-description