diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-05-18 17:20:15 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-05-18 17:20:15 +0000 |
| commit | 40f270cf91cead48e5d7ebbdd13ab5ca52e4c351 (patch) | |
| tree | 84f4a67812ecf333d12d444fa7460519bc2fb430 | |
| parent | f9b4bc220a684a970a58dafa9e57d665d29b4121 (diff) | |
| download | haskell-40f270cf91cead48e5d7ebbdd13ab5ca52e4c351.tar.gz | |
Change another / to </> to avoid building paths containing \/
This will hopefully fix #2889.
| -rw-r--r-- | compiler/main/SysTools.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index ac1941d771..c479a66ab5 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -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 |