stack init --solver fails if GHC_PACKAGE_PATH is present (fixes #860)

commercialhaskell · Aug 27, 2015 · 5a899e1 · 5a899e1
1 parent d45a05a
commit 5a899e1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/ChangeLog.md b/ChangeLog.md
@@ -23,6 +23,8 @@ Other enhancements:
 
 Bug fixes:
 
+* `stack init --solver` fails if `GHC_PACKAGE_PATH` is present [#860](https://github.com/commercialhaskell/stack/issues/860)
+
 ## 0.1.3.1
 
 Bug fixes:

diff --git a/src/Stack/Solver.hs b/src/Stack/Solver.hs
@@ -75,7 +75,10 @@ cabalSolver wc cabalfps constraints cabalArgs = withSystemTempDirectory "cabal-s
 
     $logInfo "Asking cabal to calculate a build plan, please wait"
 
-    bs <- readProcessStdout (Just tmpdir) menv "cabal" args
+    platform <- asks getPlatform
+    menv' <- mkEnvOverride platform
+           $ Map.delete "GHC_PACKAGE_PATH" $ unEnvOverride menv
+    bs <- readProcessStdout (Just tmpdir) menv' "cabal" args
     let ls = drop 1
            $ dropWhile (not . T.isPrefixOf "In order, ")
            $ T.lines