Implement install_docs (#442)
[hadrian.git] / src / Settings.hs
index d903255..e40f20d 100644 (file)
@@ -1,20 +1,19 @@
 module Settings (
     getArgs, getLibraryWays, getRtsWays, flavour, knownPackages,
     findPackageByName, getPkgData, getPkgDataList, isLibrary, stagePackages,
-    latestBuildStage, programContext, integerLibraryName, getDestDir
+    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
 import Settings.Flavours.Profiled
 import Settings.Flavours.Quick
 import Settings.Flavours.Quickest
+import Settings.Flavours.QuickCross
 import UserSettings
 
 getArgs :: Args
@@ -34,7 +33,8 @@ stagePackages stage = do
 hadrianFlavours :: [Flavour]
 hadrianFlavours =
     [ defaultFlavour, developmentFlavour Stage1, developmentFlavour Stage2
-    , performanceFlavour, profiledFlavour, quickFlavour, quickestFlavour ]
+    , performanceFlavour, profiledFlavour, quickFlavour, quickestFlavour
+    , quickCrossFlavour ]
 
 flavour :: Action Flavour
 flavour = do
@@ -63,13 +63,6 @@ knownPackages = sort $ ghcPackages ++ userPackages
 findPackageByName :: PackageName -> Maybe Package
 findPackageByName name = find (\pkg -> pkgName pkg == name) knownPackages
 
--- | Determine the latest 'Stage' in which a given 'Package' is built. Returns
--- Nothing if the package is never built.
-latestBuildStage :: Package -> Action (Maybe Stage)
-latestBuildStage pkg = do
-    stages <- filterM (fmap (pkg `elem`) . stagePackages) [Stage0 ..]
-    return $ if null stages then Nothing else Just $ maximum stages
-
 -- | Install's DESTDIR setting.
 getDestDir :: Action FilePath
 getDestDir = fromMaybe "" <$> cmdInstallDestDir