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

Finalise generation of build rules from contexts.

See #207.
parent 98b1f8c2
...@@ -72,13 +72,9 @@ packageRules = do ...@@ -72,13 +72,9 @@ packageRules = do
[ buildPackageData [ buildPackageData
, buildPackageDependencies readPackageDb , buildPackageDependencies readPackageDb
, buildPackageDocumentation , buildPackageDocumentation
, generatePackageCode ] , generatePackageCode
, buildProgram
for_ allStages $ \stage -> , registerPackage writePackageDb ]
for_ knownPackages $ \package -> do
let context = vanillaContext stage package
buildProgram context
registerPackage writePackageDb context
buildRules :: Rules () buildRules :: Rules ()
buildRules = do buildRules = do
......
...@@ -13,7 +13,6 @@ import Settings ...@@ -13,7 +13,6 @@ import Settings
import Settings.Packages.Rts import Settings.Packages.Rts
import Target import Target
-- TODO: Use way from Context, #207
-- Build package-data.mk by using GhcCabal to process pkgCabal file -- Build package-data.mk by using GhcCabal to process pkgCabal file
registerPackage :: [(Resource, Int)] -> Context -> Rules () registerPackage :: [(Resource, Int)] -> Context -> Rules ()
registerPackage rs context @ (Context {..}) = do registerPackage rs context @ (Context {..}) = do
......
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