ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

packages: Remove 'origin-sha256' procedure.

Browse source 
* guix/packages.scm (origin-sha256): Remove procedure.
* tests/import-utils.scm (test-import-utils)
[alist->package with explicit source]: Use content-hash-value.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Bruno Victal 2023-02-27 00:11:44 +00:00 committed by Ludovic Courtès
parent 6586c114e9
commit 5481aaacb5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 1 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/packages.scm
View file

@ -74,7 +74,6 @@ (define-module (guix packages)
origin-uri
origin-method
origin-hash
origin-sha256 ;deprecated
origin-file-name
origin-actual-file-name
origin-patches
@ -346,14 +345,6 @@ (define-syntax-rule (origin fields ...)
specifications to 'hash'."
(origin-compatibility-helper (fields ...) ()))
(define-deprecated (origin-sha256 origin)
origin-hash
(let ((hash (origin-hash origin)))
(unless (eq? (content-hash-algorithm hash) 'sha256)
(raise (condition (&message
(message (G_ "no SHA256 hash for origin"))))))
(content-hash-value hash)))
(define (print-origin origin port)
"Write a concise representation of ORIGIN to PORT."
(match origin

2
tests/import-utils.scm
View file

@ -141,7 +141,7 @@ (define-module (test-import-utils)
(license:license? (package-license pkg))
(build-system? (package-build-system pkg))
(origin? (package-source pkg))
(equal? (origin-sha256 (package-source pkg))
(equal? (content-hash-value (origin-hash (package-source pkg)))
(base32 "0ssi1wpaf7plaswqqjwigppsg5fyh99vdlb9kzl7c9lng89ndq1i")))))
(test-equal "alist->package with false license" ;<https://bugs.gnu.org/30470>