ask for Functor for a MonadRandom too.
This commit is contained in:
parent
f3bf67df99
commit
be3eacc068
@ -16,7 +16,7 @@ import Control.Applicative
|
|||||||
import Crypto.Random.Entropy
|
import Crypto.Random.Entropy
|
||||||
import Crypto.Internal.ByteArray
|
import Crypto.Internal.ByteArray
|
||||||
|
|
||||||
class Monad m => MonadRandom m where
|
class (Functor m, Monad m) => MonadRandom m where
|
||||||
getRandomBytes :: ByteArray byteArray => Int -> m byteArray
|
getRandomBytes :: ByteArray byteArray => Int -> m byteArray
|
||||||
|
|
||||||
class DRG gen where
|
class DRG gen where
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user