Move rtsContext to Settings.Packages.Rts

src/GHC.hs

@@ -9,7 +9,7 @@ module GHC (
     parallel, pretty, primitive, process, rts, runGhc, stm, templateHaskell,
     terminfo, time, touchy, transformers, unlit, unix, win32, xhtml,
 
-    defaultKnownPackages, stageDirectory, rtsContext, programPath
+    defaultKnownPackages, stageDirectory, programPath
     ) where
 
 import Base
@@ -124,7 +124,3 @@ programPath Context {..}
     inplaceProgram name = programInplacePath -/- name <.> exe
     installProgram name = pkgPath package -/- stageDirectory stage
                                           -/- "build/tmp" -/- name <.> exe
-
--- TODO: Move this elsewhere.
-rtsContext :: Context
-rtsContext = vanillaContext Stage1 rts

src/Rules.hs

@@ -19,6 +19,7 @@ import qualified Rules.Perl
 import qualified Rules.Program
 import qualified Rules.Register
 import Settings
+import Settings.Packages.Rts
 import Settings.Paths
 
 allStages :: [Stage]

src/Rules/Generate.hs

@@ -20,6 +20,7 @@ import Rules.Generators.GhcSplit
 import Rules.Generators.GhcVersionH
 import Rules.Generators.VersionHs
 import Rules.Libffi
+import Settings.Packages.Rts
 import Settings.Paths
 import Target
 import UserSettings

src/Settings/Packages/Rts.hs

 module Settings.Packages.Rts (
-    rtsPackageArgs, rtsConfIn, rtsConf, rtsLibffiLibraryName
+    rtsPackageArgs, rtsConfIn, rtsConf, rtsContext, rtsLibffiLibraryName
     ) where
 
 import Base
@@ -11,6 +11,9 @@ import Predicate
 import Settings
 import Settings.Paths
 
+rtsContext :: Context
+rtsContext = vanillaContext Stage1 rts
+
 rtsConfIn :: FilePath
 rtsConfIn = pkgPath rts -/- "package.conf.in"