From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 7 Mar 2011 12:27:05 +0000 (+0000)
Subject: tweak to cleanTempFilesExcept
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=61d1a81bfdebc51b9ba0fe73502dfafdf2d7f0fa

tweak to cleanTempFilesExcept
---

diff --git a/compiler/main/SysTools.lhs b/compiler/main/SysTools.lhs
index a4ea987..5c64a34 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.