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

Merge pull request #87 from dredozubov/typo-fix

Browse Source 
Improve some documentation phrasing and fix typos.
This commit is contained in:
Vincent Hanquez 2016-05-06 06:05:20 +01:00
commit ed31cf7549
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Crypto/Random/EntropyPool.hs
View File

@ -21,8 +21,8 @@ import Data.Maybe (catMaybes)
import Foreign.Marshal.Utils (copyBytes) import Foreign.Marshal.Utils (copyBytes)
import Foreign.Ptr (plusPtr, Ptr) import Foreign.Ptr (plusPtr, Ptr)
-- | Pool of Entropy. contains a self mutating pool of entropy, -- | Pool of Entropy. Contains a self-mutating pool of entropy,
-- that is always guarantee to contains data. -- that is always guaranteed to contain data.
data EntropyPool = EntropyPool [EntropyBackend] (MVar Int) ScrubbedBytes data EntropyPool = EntropyPool [EntropyBackend] (MVar Int) ScrubbedBytes
-- size of entropy pool by default -- size of entropy pool by default
@ -31,7 +31,8 @@ defaultPoolSize = 4096
-- | Create a new entropy pool of a specific size -- | Create a new entropy pool of a specific size
-- --
-- While you can create as many entropy pool as you want, the pool can be shared between multiples RNGs. -- While you can create as many entropy pools as you want,
-- the pool can be shared between multiples RNGs.
createEntropyPoolWith :: Int -> [EntropyBackend] -> IO EntropyPool createEntropyPoolWith :: Int -> [EntropyBackend] -> IO EntropyPool
createEntropyPoolWith poolSize backends = do createEntropyPoolWith poolSize backends = do
m <- newMVar 0 m <- newMVar 0
@ -40,7 +41,8 @@ createEntropyPoolWith poolSize backends = do
-- | Create a new entropy pool with a default size. -- | Create a new entropy pool with a default size.
-- --
-- While you can create as many entropy pool as you want, the pool can be shared between multiples RNGs. -- While you can create as many entropy pools as you want,
-- the pool can be shared between multiples RNGs.
createEntropyPool :: IO EntropyPool createEntropyPool :: IO EntropyPool
createEntropyPool = do createEntropyPool = do
backends <- catMaybes `fmap` sequence supportedBackends backends <- catMaybes `fmap` sequence supportedBackends