tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

challenge: Fix type mismatch when comparing to a local hash.

Browse Source 
* guix/scripts/challenge.scm (call-with-mismatches)[narinfo1]: When
LOCAL-HASH is true, call 'narinfo-hash->sha256' and use 'bytevector=?'
instead of 'string=?'.
This commit is contained in:
Ludovic Courtès
2019-12-14 14:59:32 +01:00
parent 9d97a11f04
commit 428561aa63
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
guix/scripts/challenge.scm
View File

@@ -321,8 +321,9 @@ specified in COMPARISON-REPORT."
(define narinfo1
(if local-hash
(find (lambda (narinfo)
(not (string=? (narinfo-hash narinfo)
local-hash)))
(not (bytevector=? (narinfo-hash->sha256
(narinfo-hash narinfo))
local-hash)))
narinfos)
(first (comparison-report-narinfos comparison-report))))