Move RTS-specific paths to Settings.Packages.Rts
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 18 Aug 2017 01:46:30 +0000 (02:46 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 18 Aug 2017 01:46:30 +0000 (02:46 +0100)
src/GHC.hs
src/Rules/Data.hs
src/Rules/Generate.hs
src/Rules/Program.hs
src/Settings/Packages/Rts.hs

index 13142bd..0b3d035 100644 (file)
@@ -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
index 975f3fa..ef2f017 100644 (file)
@@ -6,6 +6,7 @@ import Expression
 import GHC
 import Oracles.Setting
 import Rules.Generate
+import Settings.Packages.Rts
 import Target
 import Utilities
 
index 0057bf8..e5dffcc 100644 (file)
@@ -14,6 +14,7 @@ import Oracles.Setting
 import Rules.Gmp
 import Rules.Libffi
 import Settings
+import Settings.Packages.Rts
 import Target
 import Utilities
 
index c88ddd8..efdd7f4 100644 (file)
@@ -11,6 +11,7 @@ import Oracles.PackageData
 import Oracles.Setting
 import Rules.Wrappers
 import Settings
+import Settings.Packages.Rts
 import Target
 import Utilities
 
index fe490dd..0ae764f 100644 (file)
@@ -1,12 +1,27 @@
-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