fix: use eqaf in Pkce.verify

ulrikstrid · Mar 7, 2024 · 431ced6 · 431ced6
1 parent 731aef4
commit 431ced6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/oidc/pkce.ml b/oidc/pkce.ml
@@ -61,5 +61,5 @@ let verify (verifier : Verifier.t) (challenge : Challenge.t) =
   match challenge with
   | S256 c ->
     let[@warning "-8"] (Challenge.S256 v) = Challenge.make verifier in
-    String.compare v c = 0
-  | Plain c -> String.compare verifier c = 0
+    Eqaf.equal v c
+  | Plain c -> Eqaf.equal verifier c