Commit 5b777d43 authored by amirouche's avatar amirouche

typofix

parent 57b30c27
...@@ -124,10 +124,10 @@ ...@@ -124,10 +124,10 @@
(define-public (verify encoded password pepper) (define-public (verify encoded password pepper)
"Verify that ENCODED is really associated with PASSWORD and PEPPER" "Verify that ENCODED is really associated with PASSWORD and PEPPER"
(let ((password* (string->utf8 (string-append password pepper))) (let ((password* (string->utf8 (string-append password pepper))))
(let ((out (argon2i-verify (bytevector->pointer (string->utf8 encoded)) (let ((out (argon2i-verify (bytevector->pointer (string->utf8 encoded))
(bytevector->pointer password*) (bytevector->pointer password*)
(bytevector-length password*)))) (bytevector-length password*))))
(if (zero? out) (if (zero? out)
#t #t
(throw 'argon2 (error-message out))))))) (throw 'argon2 (error-message out))))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment