From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 14 Nov 2008 13:09:58 +0000 (+0000)
Subject: close the temporary Handle before removing the file
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=46f8e0092cacff4b2430296772218db7cfb3d123

close the temporary Handle before removing the file
---

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