Commit 40f270cf authored by Ian Lynagh's avatar Ian Lynagh

Change another / to </> to avoid building paths containing \/

This will hopefully fix #2889.
parent f9b4bc22
......@@ -500,7 +500,7 @@ getTempDir dflags@(DynFlags{tmpDir=tmp_dir})
case lookupFM mapping tmp_dir of
Nothing ->
do x <- getProcessID
let prefix = tmp_dir ++ "/ghc" ++ show x ++ "_"
let prefix = tmp_dir </> "ghc" ++ show x ++ "_"
let
mkTempDir :: Integer -> IO FilePath
mkTempDir x
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment