X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FSysTools.lhs;h=ac1941d771a64c66657aaf3a79e7f95eee3372f7;hp=5a0c45bc58a4ec27c7a08bf7844ba726e2371c5c;hb=eb86e5a2aa0792c7826eef681048ce3b21633a18;hpb=af2280a7ae3d90c787db419dd90879f000f1bc9b

diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index 5a0c45b..ac1941d 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