ask for Functor for a MonadRandom too.

This commit is contained in:
Vincent Hanquez 2015-03-29 10:43:24 +01:00
parent f3bf67df99
commit be3eacc068

View File

@ -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