Commit cf735990 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Drop redundant top-level rts target

parent daa4b7c1
......@@ -27,16 +27,8 @@ allStages = [minBound ..]
-- | This rule 'need' all top-level build targets.
topLevelTargets :: Rules ()
topLevelTargets = do
want $ Rules.Generate.installTargets
-- TODO: Do we want libffiLibrary to be a top-level target?
action $ do -- TODO: Add support for all rtsWays
rtsLib <- pkgLibraryFile $ rtsContext { way = vanilla }
rtsThrLib <- pkgLibraryFile $ rtsContext { way = threaded }
need [ rtsLib, rtsThrLib ]
forM_ allStages $ \stage ->
forM_ (knownPackages \\ [rts, libffi]) $ \pkg -> action $ do
let context = vanillaContext stage pkg
......@@ -48,7 +40,7 @@ topLevelTargets = do
libs <- mapM (pkgLibraryFile . Context stage pkg) ways
docs <- interpretInContext context $ buildHaddock flavour
need $ libs ++ [ pkgHaddockFile context | docs && stage == Stage1 ]
else do -- otherwise build a program
else -- otherwise build a program
need =<< maybeToList <$> programPath (programContext stage pkg)
packageRules :: Rules ()
......
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