From be6bf111384b642ae409f8e2a866092473ec9936 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 30 Nov 2016 14:41:01 +0900
Subject: [PATCH] using ScrubbedBytes directly.

---
 Crypto/PubKey/Curve25519.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Crypto/PubKey/Curve25519.hs b/Crypto/PubKey/Curve25519.hs
index d1115c9..08b4a1c 100644
--- a/Crypto/PubKey/Curve25519.hs
+++ b/Crypto/PubKey/Curve25519.hs
@@ -122,14 +122,13 @@ foreign import ccall "cryptonite_curve25519_donna"
 
 generateSecretKey :: MonadRandom m => m SecretKey
 generateSecretKey = return $ unsafeDoIO $ do
-    bs :: ByteString <- getRandomBytes 32
-    withByteArray bs $ \inp -> do
+    sb <- getRandomBytes 32
+    withByteArray sb $ \inp -> do
         e0 :: Word8 <- peek inp
         poke inp (e0 .&. 0xf8)
         e31 :: Word8 <- peekByteOff inp 31
         pokeByteOff inp 31 ((e31 .&. 0x7f) .|. 0x40)
-    let CryptoPassed s = secretKey bs
-    return s
+    return $ SecretKey sb
 
 toPublicKey :: ByteString -> PublicKey
 toPublicKey bs = pub