module Service.Entropy
  ( Entropy
  , initEntropy
  , entropyBytes
  ) where

import Data.ByteArray (ByteArray)
import Crypto.Random.EntropyPool

type Entropy = EntropyPool

initEntropy :: IO Entropy
initEntropy = createEntropyPool

entropyBytes :: ByteArray a => Int -> Entropy -> IO a
entropyBytes = flip getEntropyFrom