From 23864c59abfc6dad5a6b137941d618903817e1e3 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
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')

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