secp256k1

commit 0d6f9a8e9511d9a8c56e6d14d6b62b696f47a8cf
parent a84007d0878bc39cf1d4479a3d8c803f62eb210e
Author: Jared Tobin <jared@jtobin.io>
Date:   Tue, 15 Oct 2024 12:04:44 +0400

bench: s/parse/parse_point

Diffstat:
M
bench/Main.hs
 | 
10
+++++-----

1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/bench/Main.hs b/bench/Main.hs
@@ -46,27 +46,27 @@ secp256k1 = bgroup "secp256k1" [
     s = "0306413898a49c93cccf3db6e9078c1b6a8e62568e4a4770e0d7d96792d1c580ad"
 
     bparse :: BS.ByteString -> S.Projective
-    bparse bs = case S.parse bs of
+    bparse bs = case S.parse_point bs of
       Nothing -> error "bang"
       Just v -> v
 
     foo :: S.Projective
-    foo = case S.parse p of
+    foo = case S.parse_point p of
       Nothing -> error "boom"
       Just !pa -> pa
 
     bar :: S.Projective
-    bar = case S.parse q of
+    bar = case S.parse_point q of
       Nothing -> error "bang"
       Just !pa -> pa
 
     baz :: S.Projective
-    baz = case S.parse r of
+    baz = case S.parse_point r of
       Nothing -> error "bang"
       Just !pa -> pa
 
     qux :: S.Projective
-    qux = case S.parse s of
+    qux = case S.parse_point s of
       Nothing -> error "bang"
       Just !pa -> pa