From: simonmar <unknown>
Date: Wed, 20 Aug 2003 15:11:06 +0000 (+0000)
Subject: [project @ 2003-08-20 15:11:06 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~536
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2cc392e73116d4cdf54b99511e3d1fa8b8e76586;hp=a24ede81b6ddb6e5dde72d947437baf319968ff9;p=ghc-hetmet.git

[project @ 2003-08-20 15:11:06 by simonmar]
After removing temp files, reset the list of temporary files to empty.
---

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 6c9f2a5..2e5d8de 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -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