From 6c25824cc78462bb13acb5d3f8fb944acc16ec82 Mon Sep 17 00:00:00 2001
From: Hypercube <hypercube@0x01.me>
Date: Fri, 16 Dec 2022 00:00:00 +0000
Subject: [PATCH] Fix stack detection

---
 main/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/main/Main.hs b/main/Main.hs
index 1eb50f67..44f75500 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -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.