From: rrt <unknown>
Date: Thu, 23 Aug 2001 12:50:13 +0000 (+0000)
Subject: [project @ 2001-08-23 12:50:13 by rrt]
X-Git-Tag: Approximately_9120_patches~1101
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b9e2f03d812d5ec21ad0244e4c08487a14adf027;p=ghc-hetmet.git

[project @ 2001-08-23 12:50:13 by rrt]
On second thoughts, strip either a backslash or a slash, as if we read
an environment variable, we may well get a slash in the path; if we
get a result from GetTempPath, it'll probably have a backslash.
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index fee219f..ffa77e9 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -277,6 +277,7 @@ initSysTools minusB_args
 		  -- we only do this once).
 		  tmpdir =
 	            case last tdir of
+		      '/'  -> init tdir
 		      '\\' -> init tdir
 		      _   -> tdir
 		setTmpDir tmpdir