diff options
| author | simonmar <unknown> | 1999-06-28 15:16:59 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 1999-06-28 15:16:59 +0000 |
| commit | e73744d4771eba9a173fcf1347e7ee5e690a7fd9 (patch) | |
| tree | 5c4dbc95419ca448b7dc9032fa78892db388172a /ghc/compiler/utils/StringBuffer.lhs | |
| parent | ac427fbae067690696799ffc9a30a1203f17c59c (diff) | |
| download | haskell-e73744d4771eba9a173fcf1347e7ee5e690a7fd9.tar.gz | |
[project @ 1999-06-28 15:16:59 by simonmar]
writeHandle has been removed.
Diffstat (limited to 'ghc/compiler/utils/StringBuffer.lhs')
| -rw-r--r-- | ghc/compiler/utils/StringBuffer.lhs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs index 9dbc519e8f..da2a3403f7 100644 --- 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-}) |