From: qrczak <unknown>
Date: Mon, 28 May 2001 17:34:24 +0000 (+0000)
Subject: [project @ 2001-05-28 17:34:24 by qrczak]
X-Git-Tag: Approximately_9120_patches~1852
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=15a7e6ba3725b6f32ddb0f8b099c4d13808cb989;p=ghc-hetmet.git

[project @ 2001-05-28 17:34:24 by qrczak]
Fix removing temporary files.
---

diff --git a/ghc/compiler/main/TmpFiles.hs b/ghc/compiler/main/TmpFiles.hs
index b693d59..b89e77e 100644
--- a/ghc/compiler/main/TmpFiles.hs
+++ b/ghc/compiler/main/TmpFiles.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: TmpFiles.hs,v 1.19 2001/05/28 03:31:19 sof Exp $
+-- $Id: TmpFiles.hs,v 1.20 2001/05/28 17:34:24 qrczak Exp $
 --
 -- Temporary file management
 --
@@ -90,7 +90,7 @@ removeTmpFiles verb fs = do
 #if defined(mingw32_TARGET_OS) && defined(MINIMAL_UNIX_DEPS)
 		  then kludgedSystem (cRM ++ ' ':dosifyPath f) "Cleaning temp files" >> return ()
 #else
-		  then kludgedSystem (cRM ++ f) "Cleaning temp files" >> return ()
+		  then kludgedSystem (cRM ++ ' ':f) "Cleaning temp files" >> return ()
 #endif
 		  else removeFile f)
 	    `catchAllIO`