mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-16 19:36:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix warnings

Browse Source
This commit is contained in:
Hypercube 2022-12-18 00:00:00 +00:00
parent 6c25824cc7
commit 5577155a5e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
main/Main.hs
View File

@ -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.