[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 (file)
--- 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 ())