From aad4d7742a99a85954d324dc9849f6599012d96d Mon Sep 17 00:00:00 2001 From: Alexey Kuleshevich Date: Sat, 14 Dec 2024 11:15:50 -0700 Subject: [PATCH] Improve compatibility with mtl --- random.cabal | 1 + src/System/Random/Internal.hs | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/random.cabal b/random.cabal index 69756e7e..3b45dbfa 100644 --- a/random.cabal +++ b/random.cabal @@ -100,6 +100,7 @@ library bytestring >=0.10.4 && <0.13, deepseq >=1.1 && <2, mtl >=2.2 && <2.4, + transformers >=0.4 && <0.7, splitmix >=0.1 && <0.2 if impl(ghc < 9.4) build-depends: data-array-byte diff --git a/src/System/Random/Internal.hs b/src/System/Random/Internal.hs index f6bba9e2..423a3ab8 100644 --- a/src/System/Random/Internal.hs +++ b/src/System/Random/Internal.hs @@ -89,10 +89,10 @@ import Control.Arrow import Control.DeepSeq (NFData) import Control.Monad (replicateM, when, (>=>)) import Control.Monad.Cont (ContT, runContT) -import Control.Monad.Identity (IdentityT (runIdentityT)) import Control.Monad.ST import Control.Monad.State.Strict (MonadState(..), State, StateT(..), execStateT, runState) import Control.Monad.Trans (lift, MonadTrans) +import Control.Monad.Trans.Identity (IdentityT (runIdentityT)) import Data.Array.Byte (ByteArray(..), MutableByteArray(..)) import Data.Bits import Data.ByteString.Short.Internal (ShortByteString(SBS), fromShort)