1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module Network.TLS.RNG (
StateRNG (..),
Seed,
seedNew,
seedToInteger,
seedFromInteger,
withTLSRNG,
newStateRNG,
MonadRandom,
getRandomBytes,
) where
import Crypto.Random
newtype StateRNG = StateRNG ChaChaDRG
deriving (DRG)
instance Show StateRNG where
show _ = "rng[..]"
withTLSRNG
:: StateRNG
-> MonadPseudoRandom StateRNG a
-> (a, StateRNG)
withTLSRNG rng f = withDRG rng f
newStateRNG :: Seed -> StateRNG
newStateRNG seed = StateRNG $ drgNewSeed seed
|
