From fdc347eca562298478ef2c17eb8eeb8fc313bd16 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 29 May 2001 17:53:59 +0000
Subject: [PATCH] [project @ 2001-05-29 17:53:59 by sof] missing whitespaces
 caused touch/rm to fail

---
 ghc/compiler/main/DriverPipeline.hs |    4 ++--
 ghc/compiler/main/TmpFiles.hs       |    6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

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;
 		};
diff --git a/ghc/compiler/main/TmpFiles.hs b/ghc/compiler/main/TmpFiles.hs
index b89e77e..a1eae3b 100644
--- a/ghc/compiler/main/TmpFiles.hs
+++ b/ghc/compiler/main/TmpFiles.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: TmpFiles.hs,v 1.20 2001/05/28 17:34:24 qrczak Exp $
+-- $Id: TmpFiles.hs,v 1.21 2001/05/29 17:53:59 sof Exp $
 --
 -- Temporary file management
 --
@@ -88,9 +88,9 @@ removeTmpFiles verb fs = do
 	   (do  when verbose (hPutStrLn stderr ("Removing: " ++ f))
 		if '*' `elem` f 
 #if defined(mingw32_TARGET_OS) && defined(MINIMAL_UNIX_DEPS)
-		  then kludgedSystem (cRM ++ ' ':dosifyPath f) "Cleaning temp files" >> return ()
+		  then kludgedSystem (unwords [cRM, dosifyPath f]) "Cleaning temp files" >> return ()
 #else
-		  then kludgedSystem (cRM ++ ' ':f) "Cleaning temp files" >> return ()
+		  then kludgedSystem (unwords [cRM, f]) "Cleaning temp files" >> return ()
 #endif
 		  else removeFile f)
 	    `catchAllIO`
-- 
1.7.10.4