Initial commit

bundled/Crypto/Random/Entropy.hs

@@ -0,0 +1,22 @@
+-- |
+-- Module      : Crypto.Random.Entropy
+-- License     : BSD-style
+-- Maintainer  : Vincent Hanquez <vincent@snarc.org>
+-- Stability   : experimental
+-- Portability : Good
+--
+module Crypto.Random.Entropy
+    ( getEntropy
+    ) where
+
+import           Data.Maybe (catMaybes)
+import           Crypto.Internal.ByteArray (ByteArray)
+import qualified Crypto.Internal.ByteArray as B
+
+import           Crypto.Random.Entropy.Unsafe
+
+-- | Get some entropy from the system source of entropy
+getEntropy :: ByteArray byteArray => Int -> IO byteArray
+getEntropy n = do
+    backends <- catMaybes `fmap` sequence supportedBackends
+    B.alloc n (replenish n backends)