Commit 5985b613 authored by sof's avatar sof
Browse files

[project @ 2001-11-27 00:18:59 by sof]

track 5.03's change to PrelHandle.fillReadBuffer
parent 343b371a
......@@ -245,7 +245,12 @@ trySlurp handle sz_i chunk =
buf <- readIORef ref
ch <- (if not (bufferEmpty buf)
then hGetcBuffered fd ref buf
else do new_buf <- fillReadBuffer fd True buf
else do
#if __GLASGOW_HASKELL__ >= 503
new_buf <- fillReadBuffer fd True False buf
#else
new_buf <- fillReadBuffer fd True buf
#endif
hGetcBuffered fd ref new_buf)
`catch` \e -> if isEOFError e
then return '\xFFFF'
......
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