diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-10-18 16:52:41 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-10-25 21:27:38 +0100 |
| commit | 0bb8daa7da52240a971a4ce83d97cfb62971ea78 (patch) | |
| tree | 8e91ebd75f442384f2af4648847c2fdfe919f0b1 /src/crypto/reflibs/Crypto/Random.hs | |
| parent | e45b366ca8b9caa4fe0087e5c4fb1720472d9c23 (diff) | |
Diffstat (limited to 'src/crypto/reflibs/Crypto/Random.hs')
| -rw-r--r-- | src/crypto/reflibs/Crypto/Random.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/crypto/reflibs/Crypto/Random.hs b/src/crypto/reflibs/Crypto/Random.hs new file mode 100644 index 0000000..6297155 --- /dev/null +++ b/src/crypto/reflibs/Crypto/Random.hs @@ -0,0 +1,13 @@ +module Crypto.Random ( + MonadRandom(..), +) where + +import Crypto.Random.Entropy + +import Data.ByteArray + +class Monad m => MonadRandom m where + getRandomBytes :: ByteArray byteArray => Int -> m byteArray + +instance MonadRandom IO where + getRandomBytes = fmap convert . getEntropy |