fix miscompilation with ghc9

2021-05-08 22:57:36 +08:00 · 2021-05-08 22:57:36 +08:00 · a6fbe0ed4c
commit a6fbe0ed4c
parent b6981a4ea5
1 changed files with 1 additions and 1 deletions
--- a/Crypto/PubKey/EdDSA.hs
+++ b/Crypto/PubKey/EdDSA.hs
@ -353,7 +353,7 @@ instance EllipticCurveEdDSA Curve_Edwards25519 where
    scheduleSecret prx alg priv =
        (decodeScalarNoErr prx clamped, B.dropView hashed 32)
      where
-        hashed  = digest alg ($ priv)
+        hashed  = digest alg $ \update -> update priv

        clamped :: Bytes
        clamped = B.copyAndFreeze (B.takeView hashed 32) $ \p -> do