Commit 3ae4e1d0 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Depend on RTS only when building GHC program

parent 76de2275
......@@ -73,9 +73,10 @@ buildBinary rs context@Context {..} bin = do
binDeps <- if stage == Stage0 && package == ghcCabal
then hsSources context
else do
deps <- contextDependencies context
needContext =<< contextDependencies context
when (package == ghc) $ do
ways <- interpretInContext context (getLibraryWays <> getRtsWays)
needContext $ deps ++ [ rtsContext { way = w } | w <- ways ]
needContext [ rtsContext { way = w } | w <- ways ]
let path = buildPath context
cObjs <- map (objectPath context) <$> pkgDataList (CSrcs path)
hsObjs <- hsObjects context
......
......@@ -8,10 +8,8 @@ quickestFlavour :: Flavour
quickestFlavour = defaultFlavour
{ name = "quickest"
, args = defaultBuilderArgs <> quickestArgs <> defaultPackageArgs
, libraryWays = defaultLibraryWays <> quickestLibraryWays }
, libraryWays = append [vanilla]
, rtsWays = append [vanilla] }
quickestArgs :: Args
quickestArgs = builder Ghc ? arg "-O0"
quickestLibraryWays :: Ways
quickestLibraryWays = remove [profiling]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment