[project @ 2001-10-03 09:43:11 by rrt]
authorrrt <unknown>
Wed, 3 Oct 2001 09:43:11 +0000 (09:43 +0000)
committerrrt <unknown>
Wed, 3 Oct 2001 09:43:11 +0000 (09:43 +0000)
Remove import of unDosifyPath, and the comment saying that it is used.

ghc/compiler/main/DriverPipeline.hs

index c441751..0db9de7 100644 (file)
@@ -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