From 2cc392e73116d4cdf54b99511e3d1fa8b8e76586 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 20 Aug 2003 15:11:06 +0000
Subject: [PATCH] [project @ 2003-08-20 15:11:06 by simonmar] After removing
 temp files, reset the list of temporary files to empty.

---
 ghc/compiler/main/SysTools.lhs |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4