Commit a3ccd83f authored by rrt's avatar rrt
Browse files

[project @ 2001-10-03 09:43:11 by rrt]

Remove import of unDosifyPath, and the comment saying that it is used.
parent 28274f6a
...@@ -33,7 +33,7 @@ import DriverUtil ...@@ -33,7 +33,7 @@ import DriverUtil
import DriverMkDepend import DriverMkDepend
import DriverPhases import DriverPhases
import DriverFlags import DriverFlags
import SysTools ( newTempName, addFilesToClean, getSysMan, unDosifyPath ) import SysTools ( newTempName, addFilesToClean, getSysMan )
import qualified SysTools import qualified SysTools
import HscMain import HscMain
import Finder import Finder
...@@ -333,9 +333,7 @@ run_phase :: Phase ...@@ -333,9 +333,7 @@ run_phase :: Phase
run_phase Unlit _basename _suff input_fn output_fn run_phase Unlit _basename _suff input_fn output_fn
= do unlit_flags <- getOpts opt_L = do unlit_flags <- getOpts opt_L
-- The -h option passes the file name for unlit to put in a #line directive; -- 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
SysTools.runUnlit (map SysTools.Option unlit_flags ++ SysTools.runUnlit (map SysTools.Option unlit_flags ++
[ SysTools.Option "-h" [ SysTools.Option "-h"
, SysTools.Option input_fn , SysTools.Option input_fn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment