From a6fbe0ed4cbf4e7312279ad1dfc73f83cfa8fcc8 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@typed.io>
Date: Sat, 8 May 2021 22:57:36 +0800
Subject: [PATCH] fix miscompilation with ghc9

---
 Crypto/PubKey/EdDSA.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Crypto/PubKey/EdDSA.hs b/Crypto/PubKey/EdDSA.hs
index 95fa7fd..d60a340 100644
--- 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