From 5577155a5ec888d4910d827e3876215c2f4fe5de Mon Sep 17 00:00:00 2001 From: Hypercube Date: Sun, 18 Dec 2022 00:00:00 +0000 Subject: [PATCH] Fix warnings --- main/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/main/Main.hs b/main/Main.hs index 44f75500..44c94edd 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -14,7 +14,7 @@ import Control.Concurrent.Chan import Control.Arrow (second) import Data.Aeson hiding (Success) import System.Process (readProcess, readProcessWithExitCode) -import System.Exit (exitSuccess, ExitCode(ExitSuccess)) +import System.Exit (exitSuccess, ExitCode) import Control.Exception (try) import System.Environment (getArgs) import System.Environment (setEnv) @@ -136,7 +136,7 @@ runKernel kOpts profileSrc = do let stack = case runResult :: Either SomeException (ExitCode, String, String) of Left _ -> False - Right (exitCode, stackStdout, stackStderr) -> "The Haskell Tool Stack" `isInfixOf` (stackStdout ++ stackStderr) + Right (_, 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.