diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-03-25 13:32:37 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-03-25 13:32:37 +0000 |
| commit | eb86e5a2aa0792c7826eef681048ce3b21633a18 (patch) | |
| tree | ae054fb470fb3cace4a78bb16f4e90756a0b591c /compiler | |
| parent | af2280a7ae3d90c787db419dd90879f000f1bc9b (diff) | |
| download | haskell-eb86e5a2aa0792c7826eef681048ce3b21633a18.tar.gz | |
Use </> rather than ++ "/"
This stops us generating paths like
c:\foo\/ghc460_0/ghc460_0.o
which windres doesn't understand.
Diffstat (limited to 'compiler')
| -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 5a0c45bc58..ac1941d771 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -480,7 +480,7 @@ newTempName :: DynFlags -> Suffix -> IO FilePath newTempName dflags extn = do d <- getTempDir dflags x <- getProcessID - findTempName (d ++ "/ghc" ++ show x ++ "_") 0 + findTempName (d </> "ghc" ++ show x ++ "_") 0 where findTempName :: FilePath -> Integer -> IO FilePath findTempName prefix x |