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

[project @ 2001-08-23 12:48:54 by rrt]
Strip a backslash, not a slash.
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 20a8099..fee219f 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -273,11 +273,11 @@ initSysTools minusB_args
 		     destructArray len buf
 		     return s
 		let
-	  	  -- strip the trailing slash (awful, but 
+	  	  -- strip the trailing backslash (awful, but 
 		  -- we only do this once).
 		  tmpdir =
 	            case last tdir of
-		      '/' -> init tdir
+		      '\\' -> init tdir
 		      _   -> tdir
 		setTmpDir tmpdir
 		return ())