From 0bb8daa7da52240a971a4ce83d97cfb62971ea78 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 18 Oct 2026 16:52:41 +0200 Subject: Add crypto backend using various reference libraries --- src/crypto/reflibs/Crypto/Random.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 src/crypto/reflibs/Crypto/Random.hs (limited to 'src/crypto/reflibs/Crypto/Random.hs') 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 -- cgit v1.2.3