-----------------------------------------------------------------------------
--- $Id: TmpFiles.hs,v 1.19 2001/05/28 03:31:19 sof Exp $
+-- $Id: TmpFiles.hs,v 1.21 2001/05/29 17:53:59 sof Exp $
--
-- Temporary file management
--
(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`