Drop redundant top-level rts target
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Sat, 7 Jan 2017 14:33:25 +0000 (14:33 +0000)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Sat, 7 Jan 2017 14:33:25 +0000 (14:33 +0000)
src/Rules.hs

index be7c89b..8db01f4 100644 (file)
@@ -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 ()