challenge: Fix type mismatch when comparing to a local hash.
* 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:
parent
9d97a11f04
commit
428561aa63
@ -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))))
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user