Include environment PATH with --ide-backend-tools-path

commercialhaskell · Jul 24, 2015 · 5bb316f · 5bb316f · mgsloan · Jul 24, 2015
1 parent 8812948
commit 5bb316f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Stack/Ide.hs b/src/Stack/Ide.hs
@@ -32,6 +32,7 @@ import           Stack.Exec (defaultEnvSettings)
 import           Stack.Package
 import           Stack.Types
 import           System.Directory (doesFileExist)
+import           System.Environment (lookupEnv)
 import           System.Exit
 import           System.IO
 import qualified System.Process as P
@@ -108,13 +109,14 @@ ide targets useropts = do
                     else return Nothing
     localdb <- packageDatabaseLocal
     depsdb <- packageDatabaseDeps
+    mpath <- liftIO $ lookupEnv "PATH"
     bindirs <- extraBinDirs `ap` return True {- include local bin -}
     let pkgopts = concat (map _2 pkgs)
         srcfiles = concatMap (map toFilePath . _3) pkgs
         pkgdbs =
             ["--package-db=" <> toFilePath depsdb <> ":" <> toFilePath localdb]
         paths =
-            ["--ide-backend-tools-path=" <> intercalate ":" (map toFilePath bindirs)
+            ["--ide-backend-tools-path=" <> intercalate ":" (map toFilePath bindirs) <> (maybe "" (':':) mpath)
             ]
     exec
         "stack-ide"