From 23864c59abfc6dad5a6b137941d618903817e1e3 Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Sun, 4 Aug 2019 21:14:45 +0200 Subject: Allow passing override-env to process functions Unfortunately we need this to pass a custom GHC executable path to stack, since it doesn't have an option to override it on the commandline (yet?). --- tests/GhcSession.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/GhcSession.hs') diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs index 52eba4e..9dafae1 100644 --- a/tests/GhcSession.hs +++ b/tests/GhcSession.hs @@ -299,12 +299,12 @@ runTest modProgs ps2@(psdImpl -> ProjSetupImpl{..}) topdir projdir cabal_file runWithCwd :: FilePath -> String -> [String] -> IO () runWithCwd cwd x xs = do let ?verbose = (==1) - callProcessStderr (Just cwd) x xs + callProcessStderr (Just cwd) [] x xs run :: String -> [String] -> IO () run x xs = do let ?verbose = (==1) - callProcessStderr Nothing x xs + callProcessStderr Nothing [] x xs test :: ModProgs -> ProjSetup2 pt -- cgit v1.2.3