projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9d5c9fb
)
close the temporary Handle before removing the file
author
Simon Marlow
<marlowsd@gmail.com>
Fri, 14 Nov 2008 13:09:58 +0000
(13:09 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Fri, 14 Nov 2008 13:09:58 +0000
(13:09 +0000)
utils/runghc/runghc.hs
patch
|
blob
|
history
diff --git
a/utils/runghc/runghc.hs
b/utils/runghc/runghc.hs
index
1ce358e
..
5baaeff
100644
(file)
--- 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