From: simonmar <unknown>
Date: Thu, 17 Jul 2003 08:59:03 +0000 (+0000)
Subject: [project @ 2003-07-17 08:59:03 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~685
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2a86ebc211c02271fa035f5834eb9f0b2e3bd6e5

[project @ 2003-07-17 08:59:03 by simonmar]
Update comments to match reality.
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index e5fafdd..576761b 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -833,12 +833,8 @@ interpreted a command line 'foo\baz' as 'foobaz'.
 -----------------------------------------------------------------------------
 -- Convert filepath into platform / MSDOS form.
 
--- platformPath does two things
--- a) change '/' to '\'
--- b) remove initial '/cygdrive/'
-
 normalisePath :: String -> String
--- Just change '\' to '/'
+-- Just changes '\' to '/'
 
 pgmPath :: String		-- Directory string in Unix format
 	-> String		-- Program name with no directory separators