Minor refactoring: re-export Context and GHC from Expression
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 28 Aug 2017 17:12:39 +0000 (18:12 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 28 Aug 2017 17:12:39 +0000 (18:12 +0100)
26 files changed:
src/Expression.hs
src/Rules.hs
src/Rules/Data.hs
src/Rules/Generate.hs
src/Rules/Install.hs
src/Rules/Library.hs
src/Rules/Program.hs
src/Rules/Test.hs
src/Rules/Wrappers.hs
src/Settings.hs
src/Settings/Builders/Common.hs
src/Settings/Default.hs
src/Settings/Packages/Base.hs
src/Settings/Packages/Cabal.hs
src/Settings/Packages/Compiler.hs
src/Settings/Packages/Ghc.hs
src/Settings/Packages/GhcCabal.hs
src/Settings/Packages/GhcPkg.hs
src/Settings/Packages/GhcPrim.hs
src/Settings/Packages/Ghci.hs
src/Settings/Packages/Haddock.hs
src/Settings/Packages/Haskeline.hs
src/Settings/Packages/IntegerGmp.hs
src/Settings/Packages/Rts.hs
src/Settings/Packages/RunGhc.hs
src/Utilities.hs

index 1018591..7e8220e 100644 (file)
@@ -12,16 +12,15 @@ module Expression (
     -- ** Evaluation
     interpret, interpretInContext,
 
-    -- ** Context and Target
-    Context, vanillaContext, stageContext, Target,
-
     -- * Convenient accessors
-    getBuildRoot, getBuildPath, getContext, getPkgData, getPkgDataList, getStage,
-    getPackage, getBuilder, getOutputs, getInputs, getWay, getInput, getOutput,
+    getBuildRoot, getContext, getPkgData, getPkgDataList, getOutputs, getInputs,
+    getInput, getOutput,
 
     -- * Re-exports
     module Base,
-    module Builder
+    module Builder,
+    module Context,
+    module GHC
     ) where
 
 import qualified Hadrian.Expression as H
@@ -29,9 +28,9 @@ import Hadrian.Expression hiding (Expr, Predicate, Args)
 
 import Base
 import Builder
-import Context (Context, vanillaContext, stageContext, getBuildPath, getStage, getPackage, getWay)
+import GHC
+import Context hiding (stage, package, way)
 import Oracles.PackageData
-import Target hiding (builder, inputs, outputs)
 
 -- | @Expr a@ is a computation that produces a value of type @Action a@ and can
 -- read parameters of the current build 'Target'.
index 02404dc..c939d6f 100644 (file)
@@ -5,10 +5,8 @@ import qualified Hadrian.Oracles.DirectoryContents
 import qualified Hadrian.Oracles.Path
 import qualified Hadrian.Oracles.TextFile
 
-import Context
 import Expression
 import Flavour
-import GHC
 import qualified Oracles.ModuleFiles
 import qualified Rules.Compile
 import qualified Rules.Data
index eb3516d..c6d894b 100644 (file)
@@ -3,7 +3,6 @@ module Rules.Data (buildPackageData) where
 import Base
 import Context
 import Expression
-import GHC
 import Oracles.Setting
 import Rules.Generate
 import Settings.Packages.Rts
index e5dffcc..b23b72d 100644 (file)
@@ -4,10 +4,8 @@ module Rules.Generate (
     ) where
 
 import Base
-import Context hiding (package)
 import Expression
 import Flavour
-import GHC
 import Oracles.Flag
 import Oracles.ModuleFiles
 import Oracles.Setting
index 6732935..bd6d615 100644 (file)
@@ -4,9 +4,7 @@ import Hadrian.Oracles.DirectoryContents
 import qualified System.Directory as IO
 
 import Base
-import Context
 import Expression
-import GHC
 import Oracles.Setting
 import Rules
 import Rules.Generate
index dd59018..f7fec30 100644 (file)
@@ -9,7 +9,6 @@ import Base
 import Context
 import Expression hiding (way, package)
 import Flavour
-import GHC
 import Oracles.ModuleFiles
 import Oracles.PackageData
 import Oracles.Setting
index 1d536da..031189b 100644 (file)
@@ -5,7 +5,6 @@ import Hadrian.Haskell.Cabal
 import Base
 import Context
 import Expression hiding (stage, way)
-import GHC
 import Oracles.ModuleFiles
 import Oracles.PackageData
 import Oracles.Setting
index 4c2f8ad..9ff904f 100644 (file)
@@ -3,7 +3,6 @@ module Rules.Test (testRules) where
 import Base
 import Expression
 import Flavour
-import GHC
 import Oracles.Flag
 import Oracles.Setting
 import Settings
index ae05ca7..cf237f8 100644 (file)
@@ -5,9 +5,7 @@ module Rules.Wrappers (
 import Hadrian.Oracles.Path
 
 import Base
-import Context
 import Expression
-import GHC
 import Oracles.Setting
 import Settings
 
index d903255..aa21ab8 100644 (file)
@@ -4,11 +4,9 @@ module Settings (
     latestBuildStage, programContext, integerLibraryName, getDestDir
     ) where
 
-import Context
 import CommandLine
 import Expression
 import Flavour
-import GHC
 import {-# SOURCE #-} Settings.Default
 import Settings.Flavours.Development
 import Settings.Flavours.Performance
index 707427c..18d5727 100644 (file)
@@ -1,8 +1,6 @@
 module Settings.Builders.Common (
     module Base,
-    module Context,
     module Expression,
-    module GHC,
     module Oracles.Flag,
     module Oracles.PackageData,
     module Oracles.Setting,
@@ -12,9 +10,7 @@ module Settings.Builders.Common (
     ) where
 
 import Base
-import Context hiding (stage, package, way)
 import Expression
-import GHC
 import Oracles.Flag
 import Oracles.PackageData
 import Oracles.Setting
index 5ab1e44..ca48931 100644 (file)
@@ -7,7 +7,6 @@ module Settings.Default (
 import CommandLine
 import Expression
 import Flavour
-import GHC
 import Oracles.Flag
 import Oracles.PackageData
 import Oracles.Setting
index 103992b..bea5210 100644 (file)
@@ -1,7 +1,6 @@
 module Settings.Packages.Base (basePackageArgs) where
 
 import Expression
-import GHC
 import Settings
 
 basePackageArgs :: Args
index 4b8108a..c01be4b 100644 (file)
@@ -1,6 +1,5 @@
 module Settings.Packages.Cabal where
 
-import GHC
 import Expression
 
 cabalPackageArgs :: Args
index 0100f96..bc96235 100644 (file)
@@ -3,7 +3,6 @@ module Settings.Packages.Compiler (compilerPackageArgs) where
 import Base
 import Expression
 import Flavour
-import GHC
 import Oracles.Flag
 import Oracles.Setting
 import Settings
index ee5ed40..b1c37be 100644 (file)
@@ -1,7 +1,5 @@
 module Settings.Packages.Ghc (ghcPackageArgs) where
 
-import Context (buildPath)
-import GHC
 import Expression
 import Oracles.Setting
 import UserSettings (crossCompiling)
index 2c3da00..0e6e1ea 100644 (file)
@@ -4,7 +4,6 @@ import Hadrian.Haskell.Cabal
 
 import Base
 import Expression
-import GHC
 import Utilities
 
 ghcCabalPackageArgs :: Args
index 5286c68..d31b988 100644 (file)
@@ -1,6 +1,5 @@
 module Settings.Packages.GhcPkg (ghcPkgPackageArgs) where
 
-import GHC
 import Expression
 import UserSettings (crossCompiling)
 
index 73ecf03..df1c553 100644 (file)
@@ -1,6 +1,5 @@
 module Settings.Packages.GhcPrim (ghcPrimPackageArgs) where
 
-import GHC
 import Oracles.Flag
 import Expression
 
index 316d47d..47e7d38 100644 (file)
@@ -1,6 +1,5 @@
 module Settings.Packages.Ghci (ghciPackageArgs) where
 
-import GHC
 import Expression
 
 ghciPackageArgs :: Args
index a1021d7..c8d667e 100644 (file)
@@ -1,6 +1,5 @@
 module Settings.Packages.Haddock (haddockPackageArgs) where
 
-import GHC
 import Expression
 
 haddockPackageArgs :: Args
index 31694fe..2547d13 100644 (file)
@@ -1,8 +1,6 @@
 module Settings.Packages.Haskeline (haskelinePackageArgs) where
 
-import Base
 import Expression
-import GHC
 import UserSettings (crossCompiling)
 
 haskelinePackageArgs :: Args
index 3fdc5d6..7c2b5f6 100644 (file)
@@ -2,7 +2,6 @@ module Settings.Packages.IntegerGmp (integerGmpPackageArgs) where
 
 import Base
 import Expression
-import GHC
 import Oracles.Setting
 import Rules.Gmp
 
index a54e618..989df0a 100644 (file)
@@ -3,9 +3,7 @@ module Settings.Packages.Rts (
     ) where
 
 import Base
-import Context (buildPath)
 import Expression
-import GHC
 import Oracles.Flag
 import Oracles.Setting
 import Settings
index 0df9e32..03a19c8 100644 (file)
@@ -1,6 +1,5 @@
 module Settings.Packages.RunGhc (runGhcPackageArgs) where
 
-import GHC
 import Oracles.Setting
 import Expression
 
index 138dcdc..de48b3e 100644 (file)
@@ -15,7 +15,6 @@ import Hadrian.Utilities
 import CommandLine
 import Context
 import Expression hiding (builder, inputs, outputs, way, stage, package)
-import GHC
 import Oracles.Setting
 import Oracles.PackageData
 import Settings