[commit: ghc] wip/nfs-locking: Base: Reexport `MonadTrans` instead of `Reader` (6472042)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:31:59 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/6472042ba8fddbc721b1bc6ae322a58212b5fe32/ghc

>---------------------------------------------------------------

commit 6472042ba8fddbc721b1bc6ae322a58212b5fe32
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Thu Dec 24 14:35:31 2015 +0100

    Base: Reexport `MonadTrans` instead of `Reader`
    
    The former is much more common than the latter.


>---------------------------------------------------------------

6472042ba8fddbc721b1bc6ae322a58212b5fe32
 src/Base.hs                   | 2 +-
 src/Builder.hs                | 2 ++
 src/Expression.hs             | 2 ++
 src/Oracles/Config/Flag.hs    | 2 ++
 src/Oracles/Config/Setting.hs | 2 ++
 src/Target.hs                 | 2 ++
 6 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/Base.hs b/src/Base.hs
index aa9861b..fb0eed7 100644
--- a/src/Base.hs
+++ b/src/Base.hs
@@ -2,11 +2,11 @@ module Base (
     -- * General utilities
     module Control.Applicative,
     module Control.Monad.Extra,
-    module Control.Monad.Reader,
     module Data.Function,
     module Data.List,
     module Data.Maybe,
     module Data.Monoid,
+    MonadTrans(lift),
 
     -- * Shake
     module Development.Shake,
diff --git a/src/Builder.hs b/src/Builder.hs
index b6fd228..78f8376 100644
--- a/src/Builder.hs
+++ b/src/Builder.hs
@@ -3,6 +3,8 @@ module Builder (
     Builder (..), builderPath, getBuilderPath, specified, needBuilder
     ) where
 
+import Control.Monad.Trans.Reader
+
 import Base
 import GHC.Generics (Generic)
 import Oracles
diff --git a/src/Expression.hs b/src/Expression.hs
index 0d47314..a83ea15 100644
--- a/src/Expression.hs
+++ b/src/Expression.hs
@@ -24,6 +24,8 @@ module Expression (
     module Way
     ) where
 
+import Control.Monad.Trans.Reader
+
 import Base
 import Package
 import Builder
diff --git a/src/Oracles/Config/Flag.hs b/src/Oracles/Config/Flag.hs
index 47ea75d..d40b762 100644
--- a/src/Oracles/Config/Flag.hs
+++ b/src/Oracles/Config/Flag.hs
@@ -4,6 +4,8 @@ module Oracles.Config.Flag (
     ghcWithNativeCodeGen, supportsSplitObjects
     ) where
 
+import Control.Monad.Trans.Reader
+
 import Base
 import Oracles.Config
 import Oracles.Config.Setting
diff --git a/src/Oracles/Config/Setting.hs b/src/Oracles/Config/Setting.hs
index 81e2924..b0c6da3 100644
--- a/src/Oracles/Config/Setting.hs
+++ b/src/Oracles/Config/Setting.hs
@@ -6,6 +6,8 @@ module Oracles.Config.Setting (
     ghcCanonVersion, cmdLineLengthLimit
     ) where
 
+import Control.Monad.Trans.Reader
+
 import Base
 import Oracles.Config
 import Stage
diff --git a/src/Target.hs b/src/Target.hs
index 2060d04..25967b4 100644
--- a/src/Target.hs
+++ b/src/Target.hs
@@ -3,6 +3,8 @@ module Target (
     Target (..), PartialTarget (..), fromPartial, fullTarget, fullTargetWithWay
     ) where
 
+import Control.Monad.Trans.Reader
+
 import Base
 import Builder
 import GHC.Generics (Generic)



More information about the ghc-commits mailing list