haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-07 20:07:31 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Default build flags available

Browse Source
This commit is contained in:
Michael Snoyman 2012-12-17 15:19:46 +02:00
parent d4432cd95b
commit 5a410bf896
4 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Stackage/Build.hs
View File

@ -40,6 +40,7 @@ defaultBuildSettings = BuildSettings
, cleanBeforeBuild = True , cleanBeforeBuild = True
, excludedPackages = empty , excludedPackages = empty
, testWorkerThreads = 4 , testWorkerThreads = 4
, flags = Set.fromList $ words "blaze_html_0_5"
} }
build :: BuildSettings -> IO () build :: BuildSettings -> IO ()

2
Stackage/InstallInfo.hs
View File

@ -31,7 +31,7 @@ getInstallInfo settings = do
| otherwise = stablePackages settings | otherwise = stablePackages settings
allPackages = dropExcluded settings allPackages' allPackages = dropExcluded settings allPackages'
let totalCore = extraCore settings `Set.union` Set.map (\(PackageIdentifier p _) -> p) (hpcore hp) let totalCore = extraCore settings `Set.union` Set.map (\(PackageIdentifier p _) -> p) (hpcore hp)
pdb <- loadPackageDB totalCore allPackages pdb <- loadPackageDB settings totalCore allPackages
final <- narrowPackageDB pdb $ Set.fromList $ Map.toList $ Map.map snd $ allPackages final <- narrowPackageDB pdb $ Set.fromList $ Map.toList $ Map.map snd $ allPackages
putStrLn "Printing build plan to build-plan.log" putStrLn "Printing build plan to build-plan.log"

11
Stackage/LoadDatabase.hs
View File

@ -26,7 +26,8 @@ import Distribution.PackageDescription (Condition (..),
genPackageFlags, genPackageFlags,
libBuildInfo, libBuildInfo,
packageDescription, packageDescription,
testBuildInfo) testBuildInfo,
FlagName (FlagName))
import Distribution.PackageDescription.Parse (ParseResult (ParseOk), import Distribution.PackageDescription.Parse (ParseResult (ParseOk),
parsePackageDescription) parsePackageDescription)
import Distribution.System (buildArch, buildOS) import Distribution.System (buildArch, buildOS)
@ -46,10 +47,11 @@ import Stackage.Util
-- version. -- version.
-- --
-- * For other packages, select the maximum version number. -- * For other packages, select the maximum version number.
loadPackageDB :: Set PackageName -- ^ core packages loadPackageDB :: BuildSettings
-> Set PackageName -- ^ core packages
-> Map PackageName (VersionRange, Maintainer) -- ^ additional deps -> Map PackageName (VersionRange, Maintainer) -- ^ additional deps
-> IO PackageDB -> IO PackageDB
loadPackageDB core deps = do loadPackageDB settings core deps = do
tarName <- getTarballName tarName <- getTarballName
lbs <- L.readFile tarName lbs <- L.readFile tarName
addEntries mempty $ Tar.read lbs addEntries mempty $ Tar.read lbs
@ -119,4 +121,5 @@ loadPackageDB core deps = do
checkCond' (COr c1 c2) = checkCond' c1 || checkCond' c2 checkCond' (COr c1 c2) = checkCond' c1 || checkCond' c2
checkCond' (CAnd c1 c2) = checkCond' c1 && checkCond' c2 checkCond' (CAnd c1 c2) = checkCond' c1 && checkCond' c2
flags = map flagName $ filter flagDefault $ genPackageFlags gpd flags = map flagName (filter flagDefault $ genPackageFlags gpd) ++
(map FlagName $ Set.toList $ Stackage.Types.flags settings)

2
Stackage/Types.hs
View File

@ -79,4 +79,6 @@ data BuildSettings = BuildSettings
-- packages are dependencies of others, they will still be included. -- packages are dependencies of others, they will still be included.
, testWorkerThreads :: Int , testWorkerThreads :: Int
-- ^ How many threads to spawn for running test suites. -- ^ How many threads to spawn for running test suites.
, flags :: Set String
-- ^ Compile flags which should be turned on.
} }