Expression: Don't re-export Base
authorBen Gamari <ben@smart-cactus.org>
Thu, 24 Dec 2015 13:11:57 +0000 (14:11 +0100)
committerBen Gamari <ben@smart-cactus.org>
Mon, 28 Dec 2015 13:07:47 +0000 (14:07 +0100)
The beginning of a long journey towards minimal re-exports

32 files changed:
src/Expression.hs
src/Oracles/ArgsHash.hs
src/Predicates.hs
src/Rules.hs
src/Rules/Actions.hs
src/Rules/Cabal.hs
src/Rules/Compile.hs
src/Rules/Data.hs
src/Rules/Dependencies.hs
src/Rules/Documentation.hs
src/Rules/Generate.hs
src/Rules/Generators/ConfigHs.hs
src/Rules/Generators/GhcAutoconfH.hs
src/Rules/Generators/GhcBootPlatformH.hs
src/Rules/Generators/GhcPlatformH.hs
src/Rules/Generators/VersionHs.hs
src/Rules/Install.hs
src/Rules/Library.hs
src/Rules/Program.hs
src/Settings.hs
src/Settings/Args.hs
src/Settings/Builders/Ar.hs
src/Settings/Builders/DeriveConstants.hs
src/Settings/Builders/Gcc.hs
src/Settings/Builders/Ghc.hs
src/Settings/Builders/GhcCabal.hs
src/Settings/Builders/GhcPkg.hs
src/Settings/Builders/Haddock.hs
src/Settings/Builders/Hsc2Hs.hs
src/Settings/Packages.hs
src/Settings/TargetDirectory.hs
src/Settings/Ways.hs

index fa3959d..0d47314 100644 (file)
@@ -18,7 +18,6 @@ module Expression (
     getInput, getOutput,
 
     -- * Re-exports
     getInput, getOutput,
 
     -- * Re-exports
-    module Base,
     module Builder,
     module Package,
     module Stage,
     module Builder,
     module Package,
     module Stage,
index 65bfc8a..796e753 100644 (file)
@@ -1,6 +1,7 @@
 {-# LANGUAGE DeriveDataTypeable, GeneralizedNewtypeDeriving #-}
 module Oracles.ArgsHash (checkArgsHash, argsHashOracle) where
 
 {-# LANGUAGE DeriveDataTypeable, GeneralizedNewtypeDeriving #-}
 module Oracles.ArgsHash (checkArgsHash, argsHashOracle) where
 
+import Base
 import Expression
 import Settings
 import Settings.Args
 import Expression
 import Settings
 import Settings.Args
index ad16be5..abaa4be 100644 (file)
@@ -6,6 +6,7 @@ module Predicates (
     stage0, stage1, stage2, notStage0, notPackage, registerPackage, splitObjects
     ) where
 
     stage0, stage1, stage2, notStage0, notPackage, registerPackage, splitObjects
     ) where
 
+import Base
 import Expression
 import GHC
 import Oracles.Config.Flag
 import Expression
 import GHC
 import Oracles.Config.Flag
index a9ac3e4..147947c 100644 (file)
@@ -1,5 +1,6 @@
 module Rules (generateTargets, packageRules) where
 
 module Rules (generateTargets, packageRules) where
 
+import Base
 import Expression
 import Rules.Install
 import Rules.Package
 import Expression
 import Rules.Install
 import Rules.Package
index 30ae742..086cb8e 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Actions (build, buildWithResources) where
 
 module Rules.Actions (build, buildWithResources) where
 
+import Base
 import Expression
 import Oracles.ArgsHash
 import Settings
 import Expression
 import Oracles.ArgsHash
 import Settings
index 6ad75ae..9239e67 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Cabal (cabalRules) where
 
 module Rules.Cabal (cabalRules) where
 
+import Base
 import Data.Version
 import Distribution.Package as DP
 import Distribution.PackageDescription
 import Data.Version
 import Distribution.Package as DP
 import Distribution.PackageDescription
index 6b81a47..5276c5b 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Compile (compilePackage) where
 
 module Rules.Compile (compilePackage) where
 
+import Base
 import Expression
 import Oracles
 import Rules.Actions
 import Expression
 import Oracles
 import Rules.Actions
index 805cdfe..e0a6239 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Data (buildPackageData) where
 
 module Rules.Data (buildPackageData) where
 
+import Base
 import Expression
 import GHC
 import Oracles
 import Expression
 import GHC
 import Oracles
index dc43071..a2f5aa2 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Dependencies (buildPackageDependencies) where
 
 module Rules.Dependencies (buildPackageDependencies) where
 
+import Base
 import Expression
 import Oracles
 import Rules.Actions
 import Expression
 import Oracles
 import Rules.Actions
index 10bc463..afd5251 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Documentation (buildPackageDocumentation) where
 
 module Rules.Documentation (buildPackageDocumentation) where
 
+import Base
 import Expression
 import Oracles
 import Rules.Actions
 import Expression
 import Oracles
 import Rules.Actions
index c7d13d6..ea5ed63 100644 (file)
@@ -3,6 +3,7 @@ module Rules.Generate (
     derivedConstantsPath, generatedDependencies
     ) where
 
     derivedConstantsPath, generatedDependencies
     ) where
 
+import Base
 import Expression
 import GHC
 import Rules.Generators.ConfigHs
 import Expression
 import GHC
 import Rules.Generators.ConfigHs
index 2015bbb..1ec96e9 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Generators.ConfigHs (generateConfigHs) where
 
 module Rules.Generators.ConfigHs (generateConfigHs) where
 
+import Base
 import Expression
 import GHC
 import Oracles
 import Expression
 import GHC
 import Oracles
index 6d49603..67ec731 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Generators.GhcAutoconfH (generateGhcAutoconfH) where
 
 module Rules.Generators.GhcAutoconfH (generateGhcAutoconfH) where
 
+import Base
 import Expression
 import Oracles
 
 import Expression
 import Oracles
 
index 93b953b..7416d24 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Generators.GhcBootPlatformH (generateGhcBootPlatformH) where
 
 module Rules.Generators.GhcBootPlatformH (generateGhcBootPlatformH) where
 
+import Base
 import Expression
 import Oracles
 
 import Expression
 import Oracles
 
index 2bdf5d4..8652382 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Generators.GhcPlatformH (generateGhcPlatformH) where
 
 module Rules.Generators.GhcPlatformH (generateGhcPlatformH) where
 
+import Base
 import Expression
 import Oracles
 
 import Expression
 import Oracles
 
index ea6501a..3023fc9 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Generators.VersionHs (generateVersionHs) where
 
 module Rules.Generators.VersionHs (generateVersionHs) where
 
+import Base
 import Expression
 import Oracles
 
 import Expression
 import Oracles
 
index fca88fe..13a0e00 100644 (file)
@@ -1,5 +1,6 @@
 module Rules.Install (installTargets, installRules) where
 
 module Rules.Install (installTargets, installRules) where
 
+import Base
 import Expression
 import GHC
 import Rules.Generate
 import Expression
 import GHC
 import Rules.Generate
index db1624b..eeef3ab 100644 (file)
@@ -2,6 +2,7 @@ module Rules.Library (buildPackageLibrary, cSources, hSources) where
 
 import Data.Char
 
 
 import Data.Char
 
+import Base
 import Expression hiding (splitPath)
 import GHC
 import Oracles
 import Expression hiding (splitPath)
 import GHC
 import Oracles
index 962ce1d..781231f 100644 (file)
@@ -2,6 +2,7 @@ module Rules.Program (buildProgram) where
 
 import Data.Char
 
 
 import Data.Char
 
+import Base
 import Expression hiding (splitPath)
 import GHC hiding (ghci)
 import Oracles
 import Expression hiding (splitPath)
 import GHC hiding (ghci)
 import Oracles
index 30e887c..884ba2a 100644 (file)
@@ -7,6 +7,7 @@ module Settings (
     getPackagePath, getTargetDirectory, getTargetPath, getPackageSources
     ) where
 
     getPackagePath, getTargetDirectory, getTargetPath, getPackageSources
     ) where
 
+import Base
 import Expression
 import Oracles
 import Oracles.ModuleFiles
 import Expression
 import Oracles
 import Oracles.ModuleFiles
@@ -16,13 +17,13 @@ import Settings.User
 import Settings.Ways
 
 getPackagePath :: Expr FilePath
 import Settings.Ways
 
 getPackagePath :: Expr FilePath
-getPackagePath = liftM pkgPath getPackage
+getPackagePath = pkgPath <$> getPackage
 
 getTargetDirectory :: Expr FilePath
 
 getTargetDirectory :: Expr FilePath
-getTargetDirectory = liftM2 targetDirectory getStage getPackage
+getTargetDirectory = targetDirectory <$> getStage <*> getPackage
 
 getTargetPath :: Expr FilePath
 
 getTargetPath :: Expr FilePath
-getTargetPath = liftM2 targetPath getStage getPackage
+getTargetPath = targetPath <$> getStage <*> getPackage
 
 getPkgData :: (FilePath -> PackageData) -> Expr String
 getPkgData key = lift . pkgData . key =<< getTargetPath
 
 getPkgData :: (FilePath -> PackageData) -> Expr String
 getPkgData key = lift . pkgData . key =<< getTargetPath
index 5419f51..8aa0268 100644 (file)
@@ -1,5 +1,7 @@
 module Settings.Args (getArgs) where
 
 module Settings.Args (getArgs) where
 
+import Data.Monoid
+
 import Expression
 import Settings.Builders.Alex
 import Settings.Builders.Ar
 import Expression
 import Settings.Builders.Alex
 import Settings.Builders.Ar
index 82d6204..662d5fe 100644 (file)
@@ -1,5 +1,6 @@
 module Settings.Builders.Ar (arArgs, arCmd) where
 
 module Settings.Builders.Ar (arArgs, arCmd) where
 
+import Base
 import Expression
 import Oracles
 import Predicates (builder)
 import Expression
 import Oracles
 import Predicates (builder)
index 4353875..1f42243 100644 (file)
@@ -2,6 +2,7 @@ module Settings.Builders.DeriveConstants (
     derivedConstantsPath, deriveConstantsArgs
     ) where
 
     derivedConstantsPath, deriveConstantsArgs
     ) where
 
+import Base
 import Expression
 import Oracles.Config.Flag
 import Oracles.Config.Setting
 import Expression
 import Oracles.Config.Flag
 import Oracles.Config.Setting
index 3437a6c..fab5104 100644 (file)
@@ -1,8 +1,10 @@
 module Settings.Builders.Gcc (gccArgs, gccMArgs) where
 
 module Settings.Builders.Gcc (gccArgs, gccMArgs) where
 
+import Development.Shake.FilePath
 import Expression
 import GHC
 import Oracles
 import Expression
 import GHC
 import Oracles
+import Base ((-/-))
 import Predicates (package, stagedBuilder)
 import Settings
 
 import Predicates (package, stagedBuilder)
 import Settings
 
index 9bcad04..f354458 100644 (file)
@@ -1,5 +1,6 @@
 module Settings.Builders.Ghc (ghcArgs, ghcMArgs, commonGhcArgs) where
 
 module Settings.Builders.Ghc (ghcArgs, ghcMArgs, commonGhcArgs) where
 
+import Base
 import Expression
 import Oracles
 import GHC
 import Expression
 import Oracles
 import GHC
index cec876a..7905a2c 100644 (file)
@@ -3,6 +3,20 @@ module Settings.Builders.GhcCabal (
     customPackageArgs, ccArgs, cppArgs, ccWarnings, argStagedSettingList, needDll0
     ) where
 
     customPackageArgs, ccArgs, cppArgs, ccWarnings, argStagedSettingList, needDll0
     ) where
 
+import Data.Monoid
+import Control.Monad.Trans.Class
+import Control.Monad.Extra
+
+import Development.Shake
+import Development.Shake.FilePath
+import Base ((-/-), bootPackageConstraints)
+import Oracles.Config.Setting
+import Oracles.Config.Flag
+import GHC
+import Package
+import Way
+import Builder
+import Stage
 import Expression
 import Predicates hiding (stage)
 import Settings
 import Expression
 import Predicates hiding (stage)
 import Settings
index f5aabcc..e79a360 100644 (file)
@@ -1,5 +1,7 @@
 module Settings.Builders.GhcPkg (ghcPkgArgs) where
 
 module Settings.Builders.GhcPkg (ghcPkgArgs) where
 
+import Base
+import Builder
 import Expression
 import Predicates
 import Settings
 import Expression
 import Predicates
 import Settings
index 0663d04..ead473e 100644 (file)
@@ -1,5 +1,8 @@
 module Settings.Builders.Haddock (haddockArgs) where
 
 module Settings.Builders.Haddock (haddockArgs) where
 
+import Development.Shake.FilePath
+import Base
+import Package
 import Expression
 import Oracles
 import Predicates hiding (file)
 import Expression
 import Oracles
 import Predicates hiding (file)
index 6721aaf..90abc82 100644 (file)
@@ -1,5 +1,9 @@
 module Settings.Builders.Hsc2Hs (hsc2HsArgs) where
 
 module Settings.Builders.Hsc2Hs (hsc2HsArgs) where
 
+import Control.Monad.Trans.Class
+import Control.Monad.Extra
+
+import Base
 import Expression
 import Oracles
 import Predicates (builder, stage0, notStage0)
 import Expression
 import Oracles
 import Predicates (builder, stage0, notStage0)
index 32d12a5..cd856b8 100644 (file)
@@ -1,5 +1,6 @@
 module Settings.Packages (getPackages, knownPackages, findKnownPackage) where
 
 module Settings.Packages (getPackages, knownPackages, findKnownPackage) where
 
+import Base
 import Expression
 import Predicates
 import Settings.User
 import Expression
 import Predicates
 import Settings.User
index 6348773..7211c69 100644 (file)
@@ -3,6 +3,7 @@ module Settings.TargetDirectory (
     pkgGhciLibraryFile
     ) where
 
     pkgGhciLibraryFile
     ) where
 
+import Base
 import Expression
 import Settings.User
 
 import Expression
 import Settings.User
 
index 7788242..8484575 100644 (file)
@@ -1,5 +1,6 @@
 module Settings.Ways (getWays, getLibWays, getRtsWays) where
 
 module Settings.Ways (getWays, getLibWays, getRtsWays) where
 
+import Data.Monoid
 import Expression
 import Predicates
 import Settings.User
 import Expression
 import Predicates
 import Settings.User