Fix stack detection

This commit is contained in:
Hypercube 2022-12-16 00:00:00 +00:00
parent c466b4fa2a
commit 6c25824cc7

View File

@ -136,7 +136,7 @@ runKernel kOpts profileSrc = do
let stack =
case runResult :: Either SomeException (ExitCode, String, String) of
Left _ -> False
Right (exitCode, stackStdout, _) -> exitCode == ExitSuccess && "The Haskell Tool Stack" `isInfixOf` stackStdout
Right (exitCode, stackStdout, stackStderr) -> "The Haskell Tool Stack" `isInfixOf` (stackStdout ++ stackStderr)
-- If we're in a stack directory, use `stack` to set the environment
-- We can't do this with base <= 4.6 because setEnv doesn't exist.