Improve compatibility with mtl

haskell · Dec 14, 2024 · d5b3b6a · d5b3b6a
1 parent 0c28b23
commit d5b3b6a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -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)