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=?'.

diff --git a/guix/scripts/challenge.scm b/guix/scripts/challenge.scm
index 51e8d3e..ebeebd5 100644 (file)
--- a/guix/scripts/challenge.scm
+++ b/guix/scripts/challenge.scm
@@ -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))))