add Crypto.Random abstraction interface

Crypto/Random.hs

@@ -0,0 +1,32 @@
+-- Module      : Crypto.Random
+-- License     : BSD-style
+-- Maintainer  : Vincent Hanquez <vincent@snarc.org>
+-- Stability   : stable
+-- Portability : good
+--
+module Crypto.Random
+    (
+    -- * Deterministic instances
+      ChaChaDRG
+    -- * Deterministic Random class
+    , drgNew
+    , drgNewTest
+    , withDRG
+    , DRG(..)
+    -- * Random abstraction
+    , MonadRandom(..)
+    ) where
+
+import Crypto.Random.Types
+import Crypto.Random.ChaChaDRG
+import Crypto.Random.Entropy
+import Crypto.Internal.Memory
+
+import Control.Applicative
+import Data.Word (Word64)
+
+drgNew :: IO ChaChaDRG
+drgNew = initialize <$> (getEntropy 40 :: IO SecureBytes)
+
+drgNewTest :: (Word64, Word64, Word64, Word64, Word64) -> ChaChaDRG
+drgNewTest = initializeWords

cryptonite.cabal

@@ -59,6 +59,7 @@ Library
                      Crypto.Hash.Tiger
                      Crypto.Hash.Whirlpool
                      Crypto.PubKey.Curve25519
+                     Crypto.Random
                      Crypto.Random.Types
                      Crypto.Random.Entropy
                      Crypto.Random.EntropyPool