-- ToDo: we don't have a non-blocking primitve read on Win32
readRawBufferNoBlock :: String -> FD -> Bool -> RawBuffer -> Int -> CInt -> IO CInt
-readRawBufferNoBlock = readRawBufferNoBlock
+readRawBufferNoBlock = readRawBuffer
-- Async versions of the read/write primitives, for the non-threaded RTS
-- On Windows, if this is a read/write handle and we are in text mode,
-- turn off buffering. We don't correctly handle the case of switching
-- from read mode to write mode on a buffered text-mode handle, see bug
- -- #679.
+ -- \#679.
bmode <- case ha_type of
ReadWriteHandle | not binary -> return NoBuffering
_other -> return bmode