acf31ce · streamly · git.iko.soy

git.iko.soy/streamly

Import from transformers instead of mtl

Just so that we know where all we are actually using mtl.

commitacf31cef507430880ac1d1f0ec1fb2b80fd841fe authorHarendra Kumar <harendra@composewell.com> dateSat 20 Jun 2020, 18:56 (6 years ago) parentf80a75f

5 files changed+11−11

compare with master

unifiedsplit

src/Streamly/Internal/Data/Stream/Prelude.hs+1−1 src/Streamly/Internal/Data/Stream/StreamD.hs+5−5 src/Streamly/Internal/Data/Stream/StreamD/Type.hs+1−1 src/Streamly/Internal/Data/Stream/StreamK.hs+1−1 src/Streamly/Internal/Prelude.hs+3−3

src/Streamly/Internal/Data/Stream/Prelude.hs+1−1

@@ -69,7 +69,7 @@ module Streamly.Internal.Data.Stream.Prelude

6969where

7070

7171import Control.Monad.Catch (MonadThrow)

72−import Control.Monad.Trans (MonadTrans(..))

72+import Control.Monad.Trans.Class (MonadTrans(..))

7373import Prelude hiding (foldr, minimum, maximum)

7474import qualified Prelude

7575

src/Streamly/Internal/Data/Stream/StreamD.hs+5−5

@@ -332,9 +332,9 @@ import Control.Exception

332332import Control.Monad (void, when, forever)

333333import Control.Monad.Catch (MonadCatch, MonadThrow, throwM)

334334import Control.Monad.IO.Class (MonadIO(..))

335−import Control.Monad.Reader (ReaderT)

336−import Control.Monad.State.Strict (StateT)

337−import Control.Monad.Trans (MonadTrans(lift))

335+import Control.Monad.Trans.Reader (ReaderT)

336+import Control.Monad.Trans.State.Strict (StateT)

337+import Control.Monad.Trans.Class (MonadTrans(lift))

338338import Control.Monad.Trans.Control (MonadBaseControl, liftBaseOp_)

339339import Data.Bits (shiftR, shiftL, (.|.), (.&.))

340340import Data.Functor.Identity (Identity(..))

@@ -354,8 +354,8 @@ import Prelude

354354 reverse, iterate, splitAt)

355355

356356import qualified Control.Monad.Catch as MC

357−import qualified Control.Monad.Reader as Reader

358−import qualified Control.Monad.State.Strict as State

357+import qualified Control.Monad.Trans.Reader as Reader

358+import qualified Control.Monad.Trans.State.Strict as State

359359import qualified Prelude

360360

361361import Fusion.Plugin.Types (Fuse(..))

src/Streamly/Internal/Data/Stream/StreamD/Type.hs+1−1

@@ -69,7 +69,7 @@ where

6969import Control.Applicative (liftA2)

7070import Control.Monad (when)

7171import Control.Monad.Catch (MonadThrow, throwM)

72−import Control.Monad.Trans (lift, MonadTrans)

72+import Control.Monad.Trans.Class (lift, MonadTrans)

7373import Data.Functor.Identity (Identity(..))

7474import GHC.Base (build)

7575import GHC.Types (SPEC(..))

src/Streamly/Internal/Data/Stream/StreamK.hs+1−1

@@ -189,7 +189,7 @@ module Streamly.Internal.Data.Stream.StreamK

189189 )

190190where

191191

192−import Control.Monad.Trans (MonadTrans(lift))

192+import Control.Monad.Trans.Class (MonadTrans(lift))

193193import Control.Monad (void, join)

194194import Control.Monad.Reader.Class (MonadReader(..))

195195import Data.Function (fix)

src/Streamly/Internal/Prelude.hs+3−3

@@ -533,9 +533,9 @@ import Control.Exception (Exception, assert)

533533import Control.Monad (void)

534534import Control.Monad.Catch (MonadCatch, MonadThrow, throwM)

535535import Control.Monad.IO.Class (MonadIO(..))

536−import Control.Monad.Reader (ReaderT)

537−import Control.Monad.State.Strict (StateT)

538−import Control.Monad.Trans (MonadTrans(..))

536+import Control.Monad.Trans.Reader (ReaderT)

537+import Control.Monad.Trans.State.Strict (StateT)

538+import Control.Monad.Trans.Class (MonadTrans(..))

539539import Control.Monad.Trans.Control (MonadBaseControl)

540540import Data.Functor.Identity (Identity (..))

541541#if __GLASGOW_HASKELL__ >= 800