Commit 46f8e009 authored by Simon Marlow's avatar Simon Marlow

close the temporary Handle before removing the file

parent 9d5c9fb0
......@@ -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
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment