From 512605d513366551a4ed88950fa7617e80ff2f0b Mon Sep 17 00:00:00 2001 From: Denis Redozubov Date: Thu, 5 May 2016 19:48:09 +0300 Subject: [PATCH] fix documentation typo --- Crypto/Random/EntropyPool.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Crypto/Random/EntropyPool.hs b/Crypto/Random/EntropyPool.hs index 15e000b..a46bf7b 100644 --- a/Crypto/Random/EntropyPool.hs +++ b/Crypto/Random/EntropyPool.hs @@ -21,8 +21,8 @@ import Data.Maybe (catMaybes) import Foreign.Marshal.Utils (copyBytes) import Foreign.Ptr (plusPtr, Ptr) --- | Pool of Entropy. contains a self mutating pool of entropy, --- that is always guarantee to contains data. +-- | Pool of Entropy. Contains a self-mutating pool of entropy, +-- that is always guaranteed to contain data. data EntropyPool = EntropyPool [EntropyBackend] (MVar Int) ScrubbedBytes -- size of entropy pool by default @@ -31,7 +31,8 @@ defaultPoolSize = 4096 -- | 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 poolSize backends = do m <- newMVar 0 @@ -40,7 +41,8 @@ createEntropyPoolWith poolSize backends = do -- | 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 = do backends <- catMaybes `fmap` sequence supportedBackends