guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 5801225b8985f3d437d753e98884ceb4ed58ba22
Author: Nicolas Graves <[email protected]>
AuthorDate: Tue Sep 16 18:54:27 2025 +0200
import: cpan: Use guix-hash-url.
* guix/import/cpan.scm (cpan-module->sexp): Use guix-hash-url.
Signed-off-by: Ludovic Courtès <[email protected]>
---
guix/import/cpan.scm | 16 +++++++---------
1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index 5f06aaae90..ac4c0d8633 100644
--- a/guix/import/cpan.scm
+++ b/guix/import/cpan.scm
@@ -30,15 +30,13 @@
#:use-module (srfi srfi-26)
#:use-module (srfi srfi-34)
#:use-module (json)
- #:use-module (gcrypt hash)
#:use-module (guix diagnostics)
#:use-module (guix i18n)
#:use-module (guix store)
#:use-module (guix utils)
- #:use-module (guix base32)
#:use-module ((guix download) #:select (download-to-store url-fetch))
#:use-module ((guix import utils)
- #:select (factorize-uri recursive-import))
+ #:select (factorize-uri guix-hash-url recursive-import))
#:use-module (guix import json)
#:use-module (guix packages)
#:use-module (guix upstream)
@@ -293,12 +291,12 @@ in RELEASE, a <cpan-release> record."
`(package
(name ,(cpan-name->downstream-name name))
(version ,version)
- (source (origin
- (method url-fetch)
- (uri (string-append ,@(factorize-uri source-url
version)))
- (sha256
- (base32
- ,(bytevector->nix-base32-string (file-sha256
tarball))))))
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append ,@(factorize-uri source-url version)))
+ (sha256
+ (base32 ,(guix-hash-url tarball)))))
(build-system perl-build-system)
,@(maybe-inputs 'native-inputs
(filter (upstream-input-type-predicate 'native)
