X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;h=bb7cf41136e8cd0e1e1d2705fe858c5475d20fe5;hb=fdc347eca562298478ef2c17eb8eeb8fc313bd16;hp=4e2ce3c2c4afd9fc5b4e731204bb699477e46455;hpb=cb23a258bc0fc334f8ab61778bae656f6331ecf4;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 4e2ce3c..bb7cf41 100644
--- 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
 --
@@ -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
-		  runSomething "Touching object file" (cTOUCH ++ o_file);
+		  runSomething "Touching object file" (unwords [cTOUCH, o_file]);
 #endif
 		  return False;
 		};