From 46f8e0092cacff4b2430296772218db7cfb3d123 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 14 Nov 2008 13:09:58 +0000 Subject: [PATCH] close the temporary Handle before removing the file --- utils/runghc/runghc.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs index 1ce358e..5baaeff 100644 --- a/utils/runghc/runghc.hs +++ b/utils/runghc/runghc.hs @@ -76,7 +76,7 @@ doIt ghc args = do tmpdir <- getTemporaryDirectory bracket (openTempFile tmpdir "runghcXXXX.hs") - (\(filename,_) -> removeFile filename) + (\(filename,h) -> do hClose h; removeFile filename) $ \(filename,h) -> do getContents >>= hPutStr h hClose h -- 1.7.10.4