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:
ac427fb
)
[project @ 1999-06-28 15:16:59 by simonmar]
author
simonmar
<unknown>
Mon, 28 Jun 1999 15:16:59 +0000
(15:16 +0000)
committer
simonmar
<unknown>
Mon, 28 Jun 1999 15:16:59 +0000
(15:16 +0000)
writeHandle has been removed.
ghc/compiler/utils/StringBuffer.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/utils/StringBuffer.lhs
b/ghc/compiler/utils/StringBuffer.lhs
index
9dbc519
..
da2a340
100644
(file)
--- a/
ghc/compiler/utils/StringBuffer.lhs
+++ b/
ghc/compiler/utils/StringBuffer.lhs
@@
-265,7
+265,9
@@
trySlurp handle sz_i chunk =
-- and add 1 to allow room for the final sentinel \NUL at
-- the end of the file.
(chunk', rc) <- slurpFile 0# 0# chunk chunk_sz (chunk_sz -# (tAB_SIZE +# 1#))
+#if __GLASGOW_HASKELL__ < 404
writeHandle handle handle_
+#endif
if rc < (0::Int)
then constructErrorAndFail "slurpFile"
else return (chunk', rc+1 {-room for sentinel-})