From b9e2f03d812d5ec21ad0244e4c08487a14adf027 Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Thu, 23 Aug 2001 12:50:13 +0000
Subject: [PATCH] [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.

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

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
-- 
1.7.10.4