From a3ccd83f8962827f8aa7e5169e1376dcb8cb12ea Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Wed, 3 Oct 2001 09:43:11 +0000
Subject: [PATCH] [project @ 2001-10-03 09:43:11 by rrt] Remove import of
 unDosifyPath, and the comment saying that it is used.

---
 ghc/compiler/main/DriverPipeline.hs |    6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index c441751..0db9de7 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -33,7 +33,7 @@ import DriverUtil
 import DriverMkDepend
 import DriverPhases
 import DriverFlags
-import SysTools		( newTempName, addFilesToClean, getSysMan, unDosifyPath )
+import SysTools		( newTempName, addFilesToClean, getSysMan )
 import qualified SysTools	
 import HscMain
 import Finder
@@ -333,9 +333,7 @@ run_phase :: Phase
 
 run_phase Unlit _basename _suff input_fn output_fn
   = do unlit_flags <- getOpts opt_L
-       -- The -h option passes the file name for unlit to put in a #line directive;
-       -- we undosify it so that it doesn't contain backslashes in Windows, which
-       -- would disappear in error messages
+       -- The -h option passes the file name for unlit to put in a #line directive
        SysTools.runUnlit (map SysTools.Option unlit_flags ++
        			  [ SysTools.Option     "-h"
  			  , SysTools.Option     input_fn
-- 
1.7.10.4