From 40f270cf91cead48e5d7ebbdd13ab5ca52e4c351 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Tue, 18 May 2010 17:20:15 +0000
Subject: [PATCH] Change another / to </> to avoid building paths containing
 \/ This will hopefully fix #2889.

---
 compiler/main/SysTools.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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