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

Move RTS-specific paths to Settings.Packages.Rts

parent 7c65e098
......@@ -13,9 +13,6 @@ module GHC (
-- * Package information
builderProvenance, programName, nonCabalContext, nonHsMainPackage, autogenPath,
-- * RTS library
rtsContext, rtsBuildPath, rtsConfIn,
-- * Miscellaneous
systemBuilderPath, ghcSplitPath, stripCmdPath, inplaceInstallPath, buildDll0
) where
......@@ -239,19 +236,6 @@ stripCmdPath = do
return ":" -- HACK: from the make-based system, see the ref above
_ -> return "strip"
-- TODO: Move to RTS-specific package?
-- | RTS is considered a Stage1 package. This determines RTS build directory.
rtsContext :: Context
rtsContext = vanillaContext Stage1 rts
-- | Path to the RTS build directory.
rtsBuildPath :: Action FilePath
rtsBuildPath = buildPath rtsContext
-- | Path to RTS package configuration file, to be processed by HsCpp.
rtsConfIn :: FilePath
rtsConfIn = pkgPath rts -/- "package.conf.in"
buildDll0 :: Context -> Action Bool
buildDll0 Context {..} = do
windows <- windowsHost
......
......@@ -6,6 +6,7 @@ import Expression
import GHC
import Oracles.Setting
import Rules.Generate
import Settings.Packages.Rts
import Target
import Utilities
......
......@@ -14,6 +14,7 @@ import Oracles.Setting
import Rules.Gmp
import Rules.Libffi
import Settings
import Settings.Packages.Rts
import Target
import Utilities
......
......@@ -11,6 +11,7 @@ import Oracles.PackageData
import Oracles.Setting
import Rules.Wrappers
import Settings
import Settings.Packages.Rts
import Target
import Utilities
......
module Settings.Packages.Rts (rtsPackageArgs, rtsLibffiLibrary) where
module Settings.Packages.Rts (
rtsContext, rtsBuildPath, rtsConfIn, rtsPackageArgs, rtsLibffiLibrary
) where
import Base
import Context (buildPath)
import Expression
import GHC
import Oracles.Flag
import Oracles.Setting
import Settings
-- | RTS is considered a Stage1 package. This determines RTS build directory.
rtsContext :: Context
rtsContext = vanillaContext Stage1 rts
-- | Path to the RTS build directory.
rtsBuildPath :: Action FilePath
rtsBuildPath = buildPath rtsContext
-- | Path to RTS package configuration file, to be processed by HsCpp.
rtsConfIn :: FilePath
rtsConfIn = pkgPath rts -/- "package.conf.in"
rtsLibffiLibraryName :: Action FilePath
rtsLibffiLibraryName = do
useSystemFfi <- flag UseSystemFfi
......
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