From d5eba95eb10f8c5aae93ddd59a6fd15ba467e1c5 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 a350183c..0135b6c8 100644 --- a/random.cabal +++ b/random.cabal @@ -102,6 +102,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 66d0e81a..7ac14be4 100644 --- a/src/System/Random/Internal.hs +++ b/src/System/Random/Internal.hs @@ -98,10 +98,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 (ByteString)