From: rrt <unknown>
Date: Wed, 3 Oct 2001 09:43:11 +0000 (+0000)
Subject: [project @ 2001-10-03 09:43:11 by rrt]
X-Git-Tag: Approximately_9120_patches~870
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a3ccd83f8962827f8aa7e5169e1376dcb8cb12ea

[project @ 2001-10-03 09:43:11 by rrt]
Remove import of unDosifyPath, and the comment saying that it is used.
---

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