diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2019-08-04 21:14:45 +0200 |
|---|---|---|
| committer | Daniel Gröber (dxld) <dxld@darkboxed.org> | 2019-09-17 17:48:26 +0200 |
| commit | 23864c59abfc6dad5a6b137941d618903817e1e3 (patch) | |
| tree | 7a7394017e8ec0595acb8bb0a5ec3201b8bbaf47 /tests/GhcSession.hs | |
| parent | a93ed8c7d93df1860d2e56b400b724ac47edf470 (diff) | |
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?).
Diffstat (limited to 'tests/GhcSession.hs')
| -rw-r--r-- | tests/GhcSession.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |