Drop Stack.Path

snoyberg · snoyberg · commit c2fa525348b4 · 2015-05-18T14:51:08.000+03:00
diff --git a/src/Stack/Config.hs b/src/Stack/Config.hs
@@ -23,6 +23,7 @@ module Stack.Config
   ( Config(..)
   , ConfigException(..)
   , configInDocker
+  , configBinPaths
   , Docker(..)
   , Mount(..)
   , HasConfig (..)
@@ -77,6 +78,7 @@ import           Path.Find
 import           Stack.Types
 import           System.Directory
 import           System.Environment
+import           System.FilePath (searchPathSeparator)
 import           System.Process
 
 -- | The top-level Stackage configuration.
@@ -953,3 +955,10 @@ stackageHostDefault = "https://www.stackage.org"
 -- | The filename used for the stackage config file.
 stackageDotConfig :: Path Rel File
 stackageDotConfig = $(mkRelFile "stackage.config")
+
+-- | Get the binary locations as a string that could be used in the PATH
+configBinPaths :: Config -> String
+configBinPaths config =
+   toFilePath (configGhcBinLocation config) <>
+   [searchPathSeparator] <>
+   toFilePath (configCabalBinLocation config)
diff --git a/src/Stack/Path.hs b/src/Stack/Path.hs
diff --git a/stack.cabal b/stack.cabal
@@ -24,7 +24,6 @@ library
                      Stack.Package
                      Stack.PackageIndex.Read
                      Stack.PackageIndex.Update
-                     Stack.Path
                      Stack.Types
                      Stack.Types.BuildPlan
                      Stack.Types.FlagName
