diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-03-07 12:27:05 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-04-11 11:08:50 +0100 |
| commit | 61d1a81bfdebc51b9ba0fe73502dfafdf2d7f0fa (patch) | |
| tree | 344661163a479566c0fc429046d60215e183d218 | |
| parent | 521b792553bacbdb0eec138b150ab0626ea6f36b (diff) | |
| download | haskell-61d1a81bfdebc51b9ba0fe73502dfafdf2d7f0fa.tar.gz | |
tweak to cleanTempFilesExcept
| -rw-r--r-- | compiler/main/SysTools.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs index a4ea987be7..5c64a34650 100644 --- a/compiler/main/SysTools.lhs +++ b/compiler/main/SysTools.lhs @@ -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. |