projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-05-29 17:53:59 by sof]
[ghc-hetmet.git]
/
ghc
/
compiler
/
main
/
DriverPipeline.hs
diff --git
a/ghc/compiler/main/DriverPipeline.hs
b/ghc/compiler/main/DriverPipeline.hs
index
4e2ce3c
..
bb7cf41
100644
(file)
--- a/
ghc/compiler/main/DriverPipeline.hs
+++ b/
ghc/compiler/main/DriverPipeline.hs
@@
-1,5
+1,5
@@
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.71 2001/05/28 03:31:19 sof Exp $
+-- $Id: DriverPipeline.hs,v 1.72 2001/05/29 17:53:59 sof Exp $
--
-- GHC Driver
--
--
-- GHC Driver
--
@@
-526,7
+526,7
@@
run_phase Hsc basename suff input_fn output_fn
touch <- readIORef v_Pgm_T;
runSomething "Touching object file" (unwords [dosifyPath touch, dosifyPath o_file]);
#else
touch <- readIORef v_Pgm_T;
runSomething "Touching object file" (unwords [dosifyPath touch, dosifyPath o_file]);
#else
- runSomething "Touching object file" (cTOUCH ++ o_file);
+ runSomething "Touching object file" (unwords [cTOUCH, o_file]);
#endif
return False;
};
#endif
return False;
};