[commit: ghc] wip/nfs-locking: Move programInplacePath to Settings.Path (c5ba8b9)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/c5ba8b94b6e04cf95392f8520ff649d2538530a2/ghc

>---------------------------------------------------------------

commit c5ba8b94b6e04cf95392f8520ff649d2538530a2
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sun Oct 30 23:45:21 2016 +0000

    Move programInplacePath to Settings.Path


>---------------------------------------------------------------

c5ba8b94b6e04cf95392f8520ff649d2538530a2
 src/Base.hs          | 6 +-----
 src/Settings/Path.hs | 8 ++++++--
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/Base.hs b/src/Base.hs
index cb040d4..eb8685d 100644
--- a/src/Base.hs
+++ b/src/Base.hs
@@ -15,7 +15,7 @@ module Base (
     module Development.Shake.FilePath,
 
     -- * Paths
-    configPath, configFile, sourcePath, programInplacePath,
+    configPath, configFile, sourcePath,
 
     -- * Miscellaneous utilities
     minusOrd, intersectOrd, lookupAll, replaceEq, replaceSeparators, unifyPath,
@@ -58,10 +58,6 @@ configFile = configPath -/- "system.config"
 sourcePath :: FilePath
 sourcePath = hadrianPath -/- "src"
 
--- TODO: move to buildRootPath, see #113
-programInplacePath :: FilePath
-programInplacePath = "inplace/bin"
-
 -- | Find and replace all occurrences of a value in a list.
 replaceEq :: Eq a => a -> a -> [a] -> [a]
 replaceEq from = replaceWhen (== from)
diff --git a/src/Settings/Path.hs b/src/Settings/Path.hs
index 9993f9e..6b2e67d 100644
--- a/src/Settings/Path.hs
+++ b/src/Settings/Path.hs
@@ -3,7 +3,7 @@ module Settings.Path (
     pkgLibraryFile0, pkgGhciLibraryFile, gmpBuildPath, gmpObjects, gmpLibraryH,
     gmpBuildInfoPath, generatedPath, libffiBuildPath, shakeFilesPath, pkgConfFile,
     packageDbDirectory, packageDbStamp, bootPackageConstraints, packageDependencies,
-    objectPath, programInplaceLibPath, installPath
+    objectPath, programInplacePath, programInplaceLibPath, installPath
     ) where
 
 import Base
@@ -36,7 +36,11 @@ stageDirectory :: Stage -> FilePath
 stageDirectory = stageString
 
 -- TODO: Move to buildRootPath, see #113.
--- | Directory for wrapped binaries.
+-- | Directory for binaries that are built "in place".
+programInplacePath :: FilePath
+programInplacePath = "inplace/bin"
+
+-- | Directory for binary wrappers, and auxiliary binaries such as @touchy at .
 programInplaceLibPath :: FilePath
 programInplaceLibPath = "inplace/lib/bin"