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.Internal.ByteArray
|
||||
|
||||
class Monad m => MonadRandom m where
|
||||
class (Functor m, Monad m) => MonadRandom m where
|
||||
getRandomBytes :: ByteArray byteArray => Int -> m byteArray
|
||||
|
||||
class DRG gen where
|
||||
|
||||
Loading…
Reference in New Issue
Block a user