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

[Random] allow drgNew to be run in any MonadRandom directly.

Browse Source 
this allow cascading, create a DRG from another DRG
This commit is contained in:
Vincent Hanquez 2015-06-19 11:05:54 +01:00
parent 0d2290a4a1
commit 0b6b2d661c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Crypto/Random.hs
View File

@ -26,8 +26,10 @@ import Data.ByteArray (ScrubbedBytes)
import Crypto.Internal.Imports import Crypto.Internal.Imports
-- | Create a new DRG from system entropy -- | Create a new DRG from system entropy
drgNew :: IO ChaChaDRG drgNew :: MonadRandom randomly => randomly ChaChaDRG
drgNew = initialize <$> (getEntropy 40 :: IO ScrubbedBytes) drgNew = do
b <- getRandomBytes 40
return $ initialize (b :: ScrubbedBytes)
-- | Create a new DRG from 5 Word64. -- | Create a new DRG from 5 Word64.
-- --