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

Simplify Ed25519.generateSecretKey

Browse Source
This commit is contained in:
Olivier Chéron 2017-05-03 20:06:29 +02:00
parent 51b36f77b8
commit ac7eaac523
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Crypto/PubKey/Ed25519.hs
View File

@ -9,7 +9,6 @@
-- --
{-# LANGUAGE BangPatterns #-} {-# LANGUAGE BangPatterns #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Crypto.PubKey.Ed25519 module Crypto.PubKey.Ed25519
( SecretKey ( SecretKey
, PublicKey , PublicKey
@ -116,9 +115,7 @@ verify public message signatureVal = unsafeDoIO $
-- | Generate a secret key -- | Generate a secret key
generateSecretKey :: MonadRandom m => m SecretKey generateSecretKey :: MonadRandom m => m SecretKey
generateSecretKey = do generateSecretKey = SecretKey <$> getRandomBytes secretKeySize
ba :: ScrubbedBytes <- getRandomBytes secretKeySize
return (SecretKey $ B.copyAndFreeze ba (\_ -> return ()))
-- | A public key is 32 bytes -- | A public key is 32 bytes
publicKeySize :: Int publicKeySize :: Int