From: simonpj <unknown>
Date: Tue, 24 Jun 2003 08:03:15 +0000 (+0000)
Subject: [project @ 2003-06-24 08:03:15 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~751
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d2fcb5a672c1670ed06910e90bcfbab344aa5c27

[project @ 2003-06-24 08:03:15 by simonpj]
comments only
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index d8eb0fe..6f73313 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -623,9 +623,11 @@ setTmpDir dir = writeIORef v_TmpDir (canonicalise dir)
 #if !defined(mingw32_HOST_OS)
      canonicalise p = normalisePath p
 #else
-       -- canonicalisation of temp path under win32 is a bit more
-       -- involved: strip trailing slash, deal with /cygdrive-paths,
-       -- normalise slashes.
+	-- Canonicalisation of temp path under win32 is a bit more
+	-- involved: (a) strip trailing slash, 
+	-- 	     (b) normalise slashes
+	--	     (c) just in case, if there is a prefix /cygdrive/x/, change to x:
+	-- 
      canonicalise path = normalisePath (xltCygdrive (removeTrailingSlash path))
 
         -- if we're operating under cygwin, and TMP/TEMP is of