Commit 61d1a81b authored by Simon Marlow's avatar Simon Marlow
Browse files

tweak to cleanTempFilesExcept

parent 521b7925
......@@ -504,8 +504,8 @@ cleanTempFilesExcept dflags dont_delete
$ do let ref = filesToClean dflags
files <- readIORef ref
let (to_keep, to_delete) = partition (`elem` dont_delete) files
removeTmpFiles dflags to_delete
writeIORef ref to_keep
removeTmpFiles dflags to_delete
-- find a temporary name that doesn't already exist.
Supports Markdown
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