Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/61d1a81bfdebc51b9ba0fe73502dfafdf2d7f0fa >--------------------------------------------------------------- commit 61d1a81bfdebc51b9ba0fe73502dfafdf2d7f0fa Author: Simon Marlow <marlo...@gmail.com> Date: Mon Mar 7 12:27:05 2011 +0000 tweak to cleanTempFilesExcept >--------------------------------------------------------------- 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 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. _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
