Refactor imports in Settings/Builders
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Sun, 23 Oct 2016 00:25:50 +0000 (01:25 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Sun, 23 Oct 2016 00:25:50 +0000 (01:25 +0100)
19 files changed:
src/Rules/Libffi.hs
src/Settings/Builders/Alex.hs
src/Settings/Builders/Ar.hs
src/Settings/Builders/Cc.hs
src/Settings/Builders/Common.hs
src/Settings/Builders/Configure.hs
src/Settings/Builders/DeriveConstants.hs
src/Settings/Builders/GenApply.hs
src/Settings/Builders/GenPrimopCode.hs
src/Settings/Builders/Ghc.hs
src/Settings/Builders/GhcCabal.hs
src/Settings/Builders/GhcPkg.hs
src/Settings/Builders/Haddock.hs
src/Settings/Builders/Happy.hs
src/Settings/Builders/HsCpp.hs
src/Settings/Builders/Hsc2Hs.hs
src/Settings/Builders/Ld.hs
src/Settings/Builders/Make.hs
src/Settings/Builders/Tar.hs

index 9560dbf..0aba808 100644 (file)
@@ -1,18 +1,9 @@
 module Rules.Libffi (rtsBuildPath, libffiRules, libffiDependencies) where
 
-import Base
-import Builder
-import Expression
-import GHC
-import Oracles.Config.Flag
-import Oracles.Config.Setting
-import Oracles.WindowsPath
 import Rules.Actions
 import Settings.Builders.Common
 import Settings.Packages.Rts
-import Settings.Paths
 import Target
-import UserSettings
 
 -- TODO: this should be moved elsewhere
 rtsBuildPath :: FilePath
index c8c586a..e0ef136 100644 (file)
@@ -1,6 +1,6 @@
 module Settings.Builders.Alex (alexBuilderArgs) where
 
-import Predicate
+import Settings.Builders.Common
 
 alexBuilderArgs :: Args
 alexBuilderArgs = builder Alex ? mconcat [ arg "-g"
index 078eb65..b7b93f1 100644 (file)
@@ -1,9 +1,6 @@
 module Settings.Builders.Ar (arBuilderArgs, arCmd, chunksOfSize) where
 
-import Base
-import Oracles.Config.Flag
-import Oracles.Config.Setting
-import Predicate
+import Settings.Builders.Common
 
 arBuilderArgs :: Args
 arBuilderArgs = builder Ar ? mconcat [ arg "q"
index d478325..b0a5f0e 100644 (file)
@@ -1,11 +1,6 @@
 module Settings.Builders.Cc (ccBuilderArgs) where
 
-import Base
-import Oracles.Config.Setting
-import Oracles.PackageData
-import Predicate
 import Settings.Builders.Common
-import Settings
 
 ccBuilderArgs :: Args
 ccBuilderArgs = builder Cc ? mconcat
index 698b343..2146b2d 100644 (file)
@@ -1,13 +1,27 @@
 module Settings.Builders.Common (
+    module Base,
+    module Expression,
+    module GHC,
+    module Oracles.Config.Flag,
+    module Oracles.Config.Setting,
+    module Oracles.PackageData,
+    module Oracles.WindowsPath,
+    module Predicate,
+    module Settings,
+    module Settings.Paths,
+    module UserSettings,
     cIncludeArgs, ldArgs, cArgs, cWarnings, argSetting, argSettingList,
-    argStagedBuilderPath, argStagedSettingList
+    argStagedBuilderPath, argStagedSettingList, bootPackageDatabaseArgs
     ) where
 
 import Base
 import Expression
+import GHC
 import Oracles.Config.Flag
 import Oracles.Config.Setting
 import Oracles.PackageData
+import Oracles.WindowsPath
+import Predicate
 import Settings
 import Settings.Paths
 import UserSettings
@@ -56,3 +70,12 @@ argStagedSettingList ss = argSettingList . ss =<< getStage
 
 argStagedBuilderPath :: (Stage -> Builder) -> Args
 argStagedBuilderPath sb = argM . builderPath . sb =<< getStage
+
+bootPackageDatabaseArgs :: Args
+bootPackageDatabaseArgs = do
+    stage <- getStage
+    lift $ need [packageDbStamp stage]
+    stage0 ? do
+        path   <- getTopDirectory
+        prefix <- ifM (builder Ghc) (return "-package-db ") (return "--package-db=")
+        arg $ prefix ++ path -/- packageDbDirectory Stage0
index deab649..3ab3286 100644 (file)
@@ -2,11 +2,7 @@ module Settings.Builders.Configure (configureBuilderArgs) where
 
 import qualified System.Info as System
 
-import Base
-import Oracles.Config.Setting
-import Oracles.WindowsPath
-import Predicate
-import Settings.Paths
+import Settings.Builders.Common
 
 configureBuilderArgs :: Args
 configureBuilderArgs = mconcat
index 621a225..9467208 100644 (file)
@@ -1,11 +1,6 @@
 module Settings.Builders.DeriveConstants (deriveConstantsBuilderArgs) where
 
-import Base
-import Oracles.Config.Flag
-import Oracles.Config.Setting
-import Predicate
 import Settings.Builders.Common
-import Settings.Paths
 
 -- TODO: do we need to support `includes_CC_OPTS += -DDYNAMIC_BY_DEFAULT`?
 deriveConstantsBuilderArgs :: Args
index 64e305e..6ebb295 100644 (file)
@@ -1,6 +1,6 @@
 module Settings.Builders.GenApply (genApplyBuilderArgs) where
 
-import Predicate
+import Settings.Builders.Common
 
 -- TODO: Dead code? ifeq "$(GhcUnregisterised)" "YES" GENAPPLY_OPTS = -u
 genApplyBuilderArgs :: Args
index 77ff60e..e616ed3 100644 (file)
@@ -1,6 +1,6 @@
 module Settings.Builders.GenPrimopCode (genPrimopCodeBuilderArgs) where
 
-import Predicate
+import Settings.Builders.Common
 
 genPrimopCodeBuilderArgs :: Args
 genPrimopCodeBuilderArgs = builder GenPrimopCode ? mconcat
index 7f54af9..64fbacb 100644 (file)
@@ -1,16 +1,7 @@
 module Settings.Builders.Ghc (ghcBuilderArgs, ghcMBuilderArgs, commonGhcArgs) where
 
-import Base
 import Flavour
-import GHC
-import Oracles.Config.Flag
-import Oracles.Config.Setting
-import Oracles.PackageData
-import Predicate
-import Settings
 import Settings.Builders.Common
-import Settings.Builders.GhcCabal
-import Settings.Paths
 
 -- TODO: Add support for -dyno.
 -- $1/$2/build/%.$$($3_o-bootsuf) : $1/$4/%.hs-boot
index 00a01b2..47825c8 100644 (file)
@@ -1,18 +1,10 @@
 module Settings.Builders.GhcCabal (
-    ghcCabalBuilderArgs, ghcCabalHsColourBuilderArgs, bootPackageDatabaseArgs, buildDll0
+    ghcCabalBuilderArgs, ghcCabalHsColourBuilderArgs, buildDll0
     ) where
 
-import Base
 import Context
 import Flavour
-import GHC
-import Oracles.Config.Flag
-import Oracles.Config.Setting
-import Oracles.WindowsPath
-import Predicate
-import Settings
 import Settings.Builders.Common
-import Settings.Paths
 
 ghcCabalBuilderArgs :: Args
 ghcCabalBuilderArgs = builder GhcCabal ? do
@@ -84,15 +76,6 @@ configureArgs = do
         , crossCompiling ? (conf "--host" $ argSetting TargetPlatformFull)
         , conf "--with-cc" $ argStagedBuilderPath (Cc CompileC) ]
 
-bootPackageDatabaseArgs :: Args
-bootPackageDatabaseArgs = do
-    stage <- getStage
-    lift $ need [packageDbStamp stage]
-    stage0 ? do
-        path   <- getTopDirectory
-        prefix <- ifM (builder Ghc) (return "-package-db ") (return "--package-db=")
-        arg $ prefix ++ path -/- packageDbDirectory Stage0
-
 packageConstraints :: Args
 packageConstraints = stage0 ? do
     constraints <- lift . readFileLines $ bootPackageConstraints
index b221b9d..880dd5d 100644 (file)
@@ -1,10 +1,6 @@
 module Settings.Builders.GhcPkg (ghcPkgBuilderArgs) where
 
-import Base
-import Predicate
-import Settings
-import Settings.Builders.GhcCabal
-import Settings.Paths
+import Settings.Builders.Common
 
 ghcPkgBuilderArgs :: Args
 ghcPkgBuilderArgs = builder GhcPkg ? (initArgs <> updateArgs)
index e7b23ab..083494e 100644 (file)
@@ -1,12 +1,7 @@
 module Settings.Builders.Haddock (haddockBuilderArgs) where
 
-import Base
-import GHC
-import Oracles.PackageData
-import Predicate
-import Settings
+import Settings.Builders.Common
 import Settings.Builders.Ghc
-import Settings.Paths
 
 -- | Given a version string such as "2.16.2" produce an integer equivalent.
 versionToInt :: String -> Int
index c0c662c..5ffb261 100644 (file)
@@ -1,6 +1,6 @@
 module Settings.Builders.Happy (happyBuilderArgs) where
 
-import Predicate
+import Settings.Builders.Common
 
 happyBuilderArgs :: Args
 happyBuilderArgs = builder Happy ? mconcat [ arg "-agc"
index d93b275..ee2b0a6 100644 (file)
@@ -1,10 +1,6 @@
 module Settings.Builders.HsCpp (hsCppBuilderArgs) where
 
-import GHC
-import Oracles.Config.Setting
-import Predicate
 import Settings.Builders.Common
-import Settings.Paths
 
 hsCppBuilderArgs :: Args
 hsCppBuilderArgs = builder HsCpp ? do
index 421084a..f2cdb27 100644 (file)
@@ -1,12 +1,5 @@
 module Settings.Builders.Hsc2Hs (hsc2hsBuilderArgs) where
 
-import Base
-import Oracles.Config.Flag
-import Oracles.Config.Setting
-import Oracles.PackageData
-import Oracles.WindowsPath
-import Predicate
-import Settings
 import Settings.Builders.Common
 
 templateHsc :: FilePath
index f7f81a5..7d4cfb6 100644 (file)
@@ -1,7 +1,5 @@
 module Settings.Builders.Ld (ldBuilderArgs) where
 
-import Oracles.Config.Setting
-import Predicate
 import Settings.Builders.Common
 
 ldBuilderArgs :: Args
index 1e55d9a..d49e600 100644 (file)
@@ -1,8 +1,6 @@
 module Settings.Builders.Make (makeBuilderArgs) where
 
-import Base
-import Predicate
-import Settings.Paths
+import Settings.Builders.Common
 
 makeBuilderArgs :: Args
 makeBuilderArgs = do
index 0ad6d9a..dcc92f4 100644 (file)
@@ -1,6 +1,6 @@
 module Settings.Builders.Tar (tarBuilderArgs) where
 
-import Predicate
+import Settings.Builders.Common
 
 tarBuilderArgs :: Args
 tarBuilderArgs = builder Tar ? mconcat [ arg "-xf"