Commit 2cc392e7 authored by simonmar's avatar simonmar

[project @ 2003-08-20 15:11:06 by simonmar]

After removing temp files, reset the list of temporary files to empty.
parent a24ede81
......@@ -651,8 +651,10 @@ setTmpDir dir = writeIORef v_TmpDir (canonicalise dir)
#endif
cleanTempFiles :: Int -> IO ()
cleanTempFiles verb = do fs <- readIORef v_FilesToClean
removeTmpFiles verb fs
cleanTempFiles verb
= do fs <- readIORef v_FilesToClean
removeTmpFiles verb fs
writeIORef v_FilesToClean []
cleanTempFilesExcept :: Int -> [FilePath] -> IO ()
cleanTempFilesExcept verb dont_delete
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment