haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix miscompilation with ghc9

Browse Source
This commit is contained in:
Vincent Hanquez 2021-05-08 22:57:36 +08:00
parent b6981a4ea5
commit a6fbe0ed4c
No known key found for this signature in database
GPG Key ID: 4CA4A32D1A6F50E2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Crypto/PubKey/EdDSA.hs
View File

@ -353,7 +353,7 @@ instance EllipticCurveEdDSA Curve_Edwards25519 where
scheduleSecret prx alg priv = scheduleSecret prx alg priv =
(decodeScalarNoErr prx clamped, B.dropView hashed 32) (decodeScalarNoErr prx clamped, B.dropView hashed 32)
where where
hashed = digest alg ($ priv) hashed = digest alg $ \update -> update priv
clamped :: Bytes clamped :: Bytes
clamped = B.copyAndFreeze (B.takeView hashed 32) $ \p -> do clamped = B.copyAndFreeze (B.takeView hashed 32) $ \p -> do