Bump Cabal upper bound (#651)
[hadrian.git] / src / UserSettings.hs
index d77d998..e52ed68 100644 (file)
@@ -3,65 +3,55 @@
 -- If you don't copy the file your changes will be tracked by git and you can
 -- accidentally commit them.
 module UserSettings (
-    userBuildRoot, userFlavours, userKnownPackages, verboseCommands,
-    buildProgressColour, successColour, defaultDestDir, defaultStage1Only
+    userFlavours, userPackages, verboseCommand,
+    buildProgressColour, successColour, stage1Only
     ) where
 
-import Hadrian.Utilities
-import System.Console.ANSI
-
 import Flavour
 import Expression
+import {-# SOURCE #-} Settings.Default
 
 -- See doc/user-settings.md for instructions.
+-- Please update doc/user-settings.md when committing changes to this file.
 
--- | All build results are put into the 'buildRoot' directory.
-userBuildRoot :: BuildRoot
-userBuildRoot = BuildRoot "_build"
-
--- | User defined build flavours. See 'defaultFlavour' as an example.
+-- | User-defined build flavours. See 'userFlavour' as an example.
 userFlavours :: [Flavour]
-userFlavours = []
+userFlavours = [userFlavour] -- Add more build flavours if need be.
+
+-- | This is an example user-defined build flavour. Feel free to modify it and
+-- use by passing @--flavour=user@ from the command line.
+userFlavour :: Flavour
+userFlavour = defaultFlavour { name = "user" } -- Modify other settings here.
 
--- | Add user defined packages. Note, this only let's Hadrian know about the
+-- | Add user-defined packages. Note, this only lets Hadrian know about the
 -- existence of a new package; to actually build it you need to create a new
 -- build flavour, modifying the list of packages that are built by default.
-userKnownPackages :: [Package]
-userKnownPackages = []
+userPackages :: [Package]
+userPackages = []
 
 -- | Set to 'True' to print full command lines during the build process. Note:
 -- this is a 'Predicate', hence you can enable verbose output only for certain
--- targets, e.g.: @verboseCommands = package ghcPrim@.
-verboseCommands :: Predicate
-verboseCommands = return False
+-- targets, e.g.: @verboseCommand = package ghcPrim@.
+verboseCommand :: Predicate
+verboseCommand = do
+    verbosity <- expr getVerbosity
+    return $ verbosity >= Loud
 
 -- | Set colour for build progress messages (e.g. executing a build command).
 buildProgressColour :: BuildProgressColour
-buildProgressColour = BuildProgressColour (Dull, Magenta)
+buildProgressColour = mkBuildProgressColour (Dull Magenta)
 
 -- | Set colour for success messages (e.g. a package is built successfully).
 successColour :: SuccessColour
-successColour = SuccessColour (Dull, Green)
-
--- | Path to the GHC install destination. It is empty by default, which
--- corresponds to the root of the file system. You can replace it by a specific
--- directory. Make sure you use correct absolute path on Windows, e.g. "C:/path".
--- The destination directory is used with a @prefix@, commonly @/usr/local@,
--- i.e. GHC is installed into "C:/path/usr/local" for the above example.
-defaultDestDir :: FilePath
-defaultDestDir = ""
-
-{-
-  Stage1Only=YES means:
-   - don't build ghc-stage2 (the executable)
-   - don't build utils that rely on ghc-stage2
-     See Note [No stage2 packages when CrossCompiling or Stage1Only] in
-     ./ghc.mk.
-   - install ghc-stage1 instead of ghc-stage2
-   - install the ghc-pkg that was built with the stage0 compiler
-   - (*do* still build compiler/stage2 (i.e. the ghc library))
-   - (*do* still build all other libraries)
--}
--- | Stage1Only flag, default off
-defaultStage1Only :: Bool
-defaultStage1Only = False
+successColour = mkSuccessColour (Dull Green)
+
+-- TODO: Set this flag from the command line.
+-- | Set this flag to 'True' to disable building Stage2 GHC (i.e. the @ghc-stage2@
+-- executable) and Stage2 utilities (such as @haddock@). Note that all Stage0
+-- and Stage1 libraries (including 'compiler') will still be built. Enabling
+-- this flag during installation leads to installing @ghc-stage1@ instead of
+-- @ghc-stage2@, and @ghc-pkg@ that was build with the Stage0 compiler.
+-- Also see Note [No stage2 packages when CrossCompiling or Stage1Only] in the
+-- top-level @ghc.mk@.
+stage1Only :: Bool
+stage1Only = False