stack: honor --with-stack when reading StackEnv

This commit is contained in:
Daniel Gröber
2016-08-27 14:05:44 +02:00
parent 637f73ec80
commit 90bcf63d6c
2 changed files with 9 additions and 7 deletions

View File

@@ -134,7 +134,7 @@ stackCradle stackProg wdir = do
(True, False) -> return ()
senv <- MaybeT $ getStackEnv cabalDir
senv <- MaybeT $ getStackEnv cabalDir stackProg
gmLog GmInfo "" $ text "Using Stack project at" <+>: text cabalDir
return Cradle {