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

Move rtsContext to Settings.Packages.Rts

parent 241d59a5
......@@ -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
......@@ -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]
......
......@@ -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
......
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"
......
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