summaryrefslogtreecommitdiff
path: root/compiler/GHC/SysTools/Process.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/SysTools/Process.hs')
-rw-r--r--compiler/GHC/SysTools/Process.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/SysTools/Process.hs b/compiler/GHC/SysTools/Process.hs
index 6cb322363d..63ff2c8294 100644
--- a/compiler/GHC/SysTools/Process.hs
+++ b/compiler/GHC/SysTools/Process.hs
@@ -168,7 +168,7 @@ runSomethingResponseFile logger tmpfs dflags filter_fn phase_name pgm args mb_en
return (r,())
where
getResponseFile args = do
- fp <- newTempName logger tmpfs dflags TFL_CurrentModule "rsp"
+ fp <- newTempName logger tmpfs (tmpDir dflags) TFL_CurrentModule "rsp"
withFile fp WriteMode $ \h -> do
#if defined(mingw32_HOST_OS)
hSetEncoding h latin1