Finalise generation of build rules from contexts.

See #207.
snowleopard · Feb 16, 2016 · f6a9d2f · f6a9d2f
1 parent 98b1f8c
commit f6a9d2f
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 8 deletions.
diff --git a/src/Rules.hs b/src/Rules.hs
@@ -72,13 +72,9 @@ packageRules = do
         [ buildPackageData
         , buildPackageDependencies readPackageDb
         , buildPackageDocumentation
-        , generatePackageCode ]
-
-    for_ allStages $ \stage ->
-        for_ knownPackages $ \package -> do
-            let context = vanillaContext stage package
-            buildProgram                             context
-            registerPackage           writePackageDb context
+        , generatePackageCode
+        , buildProgram
+        , registerPackage writePackageDb ]
 
 buildRules :: Rules ()
 buildRules = do

diff --git a/src/Rules/Register.hs b/src/Rules/Register.hs
@@ -13,7 +13,6 @@ import Settings
 import Settings.Packages.Rts
 import Target
 
--- TODO: Use way from Context, #207
 -- Build package-data.mk by using GhcCabal to process pkgCabal file
 registerPackage :: [(Resource, Int)] -> Context -> Rules ()
 registerPackage rs context @ (Context {..}) = do