From be3eacc06823fe65b5c0634b32c7db7c4fc4009b Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Sun, 29 Mar 2015 10:43:24 +0100 Subject: [PATCH] ask for Functor for a MonadRandom too. --- Crypto/Random/Types.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Crypto/Random/Types.hs b/Crypto/Random/Types.hs index da547b0..8899559 100644 --- a/Crypto/Random/Types.hs +++ b/Crypto/Random/Types.hs @@ -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