Clean up switching from Settings.User to UserSettings
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Sat, 4 Jun 2016 22:40:52 +0000 (23:40 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Sat, 4 Jun 2016 22:40:52 +0000 (23:40 +0100)
18 files changed:
cfg/system.config.in
hadrian.cabal
src/GHC.hs
src/Oracles/PackageDatabase.hs
src/Rules/Clean.hs
src/Rules/Configure.hs
src/Rules/Generators/Common.hs
src/Rules/Gmp.hs
src/Rules/Libffi.hs
src/Rules/Selftest.hs
src/Rules/Test.hs
src/Settings.hs
src/Settings/Args.hs
src/Settings/Packages.hs
src/Settings/Paths.hs
src/Settings/User.hs [deleted file]
src/Settings/Ways.hs
src/UserSettings.hs

index b580f86..9ea0f44 100644 (file)
@@ -1,6 +1,6 @@
-# This file is processed by the configure script
-# See 'src/Settings/User.hs' for user-defined settings
-#=====================================================
+# This file is processed by the configure script.
+# See hadrian/src/UserSettings.hs for user-defined settings.
+#===========================================================
 
 # Paths to builders:
 #===================
index 3bbc2dd..5ffcb65 100644 (file)
@@ -104,10 +104,10 @@ executable hadrian
                        , Settings.Packages.Touchy
                        , Settings.Packages.Unlit
                        , Settings.Paths
-                       , Settings.User
                        , Settings.Ways
                        , Stage
                        , Target
+                       , UserSettings
                        , Way
 
     default-language:    Haskell2010
index cd4af4a..0bfd131 100644 (file)
@@ -21,7 +21,7 @@ import Stage
 -- all of them. However, not all of these packages will be built. For example,
 -- package 'win32' is built only on Windows.
 -- "Packages" defines default conditions for building each package, which can
--- be overridden in "Settings.User".
+-- be overridden in @hadrian/src/UserSettings.hs@.
 defaultKnownPackages :: [Package]
 defaultKnownPackages =
     [ array, base, binary, bytestring, cabal, checkApiAnnotations, compiler
index f89a2cc..efaf9ca 100644 (file)
@@ -9,8 +9,8 @@ import GHC
 import Rules.Actions
 import Settings.Builders.GhcCabal
 import Settings.Paths
-import Settings.User
 import Target
+import UserSettings
 
 packageDatabaseOracle :: Rules ()
 packageDatabaseOracle = void $
index 613073a..156488e 100644 (file)
@@ -7,8 +7,8 @@ import Rules.Actions
 import Rules.Generate
 import Settings.Packages
 import Settings.Paths
-import Settings.User
 import Stage
+import UserSettings
 
 cleanRules :: Rules ()
 cleanRules = do
index 94c678b..6eb8b4e 100644 (file)
@@ -9,9 +9,9 @@ import Context
 import GHC
 import Rules.Actions
 import Rules.Generators.GhcAutoconfH
-import Settings.User
 import Stage
 import Target
+import UserSettings
 
 configureRules :: Rules ()
 configureRules = do
index 127d5fe..e97d536 100644 (file)
@@ -2,10 +2,10 @@ module Rules.Generators.Common (trackSource, yesNo, cppify) where
 
 import Base
 import Expression
-import Settings.User
+import UserSettings
 
 -- | Track a given source file when constructing an expression if the user
--- enabled 'trackBuildSystem' in "Settings.User".
+-- enabled 'trackBuildSystem' in @hadrian/src/UserSettings.hs@.
 trackSource :: FilePath -> Expr ()
 trackSource file = lift $ when trackBuildSystem $ need [ sourcePath -/- file ]
 
index 8858dde..efe9144 100644 (file)
@@ -8,8 +8,8 @@ import Oracles.Config.Setting
 import Rules.Actions
 import Settings.Packages.IntegerGmp
 import Settings.Paths
-import Settings.User
 import Target
+import UserSettings
 
 gmpBase :: FilePath
 gmpBase = pkgPath integerGmp -/- "gmp"
index 6699ac8..3ee3307 100644 (file)
@@ -10,8 +10,8 @@ import Rules.Actions
 import Settings.Builders.Common
 import Settings.Packages.Rts
 import Settings.Paths
-import Settings.User
 import Target
+import UserSettings
 
 -- TODO: this should be moved elsewhere
 rtsBuildPath :: FilePath
index 977548f..f53a5db 100644 (file)
@@ -8,7 +8,7 @@ import Test.QuickCheck
 import Base
 import Oracles.ModuleFiles
 import Settings.Builders.Ar
-import Settings.User
+import UserSettings
 import Way
 
 instance Arbitrary Way where
index a510d16..ea0c1c5 100644 (file)
@@ -9,8 +9,8 @@ import Oracles.Config.Setting
 import Oracles.WindowsPath
 import Rules.Actions
 import Settings.Packages
-import Settings.User
 import Target
+import UserSettings
 
 -- TODO: clean up after testing
 testRules :: Rules ()
index bdd5ae6..2785b98 100644 (file)
@@ -1,8 +1,8 @@
 module Settings (
     module Settings.Packages,
     module Settings.Paths,
-    module Settings.User,
     module Settings.Ways,
+    module UserSettings,
     getPkgData, getPkgDataList, getTopDirectory, isLibrary,
     getPackagePath, getContextDirectory, getBuildPath
     ) where
@@ -13,8 +13,8 @@ import Oracles.PackageData
 import Oracles.WindowsPath
 import Settings.Packages
 import Settings.Paths
-import Settings.User
 import Settings.Ways
+import UserSettings
 
 getPackagePath :: Expr FilePath
 getPackagePath = pkgPath <$> getPackage
index 1e239a4..18079a2 100644 (file)
@@ -34,7 +34,7 @@ import Settings.Packages.Rts
 import Settings.Packages.RunGhc
 import Settings.Packages.Touchy
 import Settings.Packages.Unlit
-import Settings.User
+import UserSettings
 
 getArgs :: Expr [String]
 getArgs = fromDiffExpr $ mconcat [ defaultBuilderArgs
index 4c247dd..6c65b71 100644 (file)
@@ -4,7 +4,7 @@ import Base
 import GHC
 import Predicate
 import Oracles.Config.Setting
-import Settings.User
+import UserSettings
 
 -- Combining default list of packages with user modifications
 getPackages :: Expr [Package]
index 4c386f4..51e92e2 100644 (file)
@@ -10,7 +10,7 @@ import Context
 import Expression
 import GHC
 import Oracles.PackageData
-import Settings.User
+import UserSettings
 
 shakeFilesPath :: FilePath
 shakeFilesPath = buildRootPath -/- "hadrian/shake-files"
diff --git a/src/Settings/User.hs b/src/Settings/User.hs
deleted file mode 100644 (file)
index 9588297..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-module Settings.User (
-    buildRootPath, trackBuildSystem, userArgs, userPackages, userLibraryWays,
-    userRtsWays, userKnownPackages, integerLibrary, buildHaddock, validating,
-    ghciWithDebugger, ghcProfiled, ghcDebugged, dynamicGhcPrograms,
-    turnWarningsIntoErrors, splitObjects, verboseCommands, putBuild, putSuccess
-    ) where
-
--- Import the actual user settings from the module UserSettings.
--- The user can put an UserSettings.hs file into the hadrian root
--- folder that takes precedence over the default UserSettings.hs
--- file located in src/.
-import UserSettings
index f05ffba..79dd164 100644 (file)
@@ -5,7 +5,7 @@ import CmdLineFlag
 import Oracles.Config.Flag
 import Predicate
 import Settings.Flavours.Quick
-import Settings.User
+import UserSettings
 
 -- | Combine default library ways with user modifications.
 getLibraryWays :: Expr [Way]
index 7560aa1..908d96d 100644 (file)
@@ -1,7 +1,7 @@
---
--- If you want to customize your build you should copy this file from
--- ./src/UserSettings.hs to ./UserSettings.hs and only edit your copy.
---
+-- If you want to customise your build you should copy this file from
+-- hadrian/src/UserSettings.hs to hadrian/UserSettings.hs and edit your copy.
+-- If you don't copy the file your changes will be tracked by git and you can
+-- accidentally commit them.
 module UserSettings (
     buildRootPath, trackBuildSystem, userArgs, userPackages, userLibraryWays,
     userRtsWays, userKnownPackages, integerLibrary, buildHaddock, validating,
@@ -69,7 +69,7 @@ validating = False
 -- | Control when split objects are generated. Note, due to the GHC bug #11315
 -- it is necessary to do a full clean rebuild when changing this option.
 splitObjects :: Predicate
-splitObjects = (return cmdSplitObjects) &&^ defaultSplitObjects
+splitObjects = return cmdSplitObjects &&^ defaultSplitObjects
 
 -- | Control when to build Haddock documentation.
 buildHaddock :: Predicate