projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Big collection of patches for the new codegen branch.
[ghc-hetmet.git]
/
utils
/
runghc
/
runghc.hs
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