-----------------------------------------------------------------------------
--- $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
--
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;
};
-----------------------------------------------------------------------------
--- $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
--
(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`