From ac0439db2ece671089cec9ade21754c3ad22c134 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 21 Jan 2011 14:35:55 +0000 Subject: [PATCH] fix silly mistake in hGetBufSome (#4895) --- GHC/IO/Handle/Text.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/GHC/IO/Handle/Text.hs b/GHC/IO/Handle/Text.hs index 949231b..e481efd 100644 --- a/GHC/IO/Handle/Text.hs +++ b/GHC/IO/Handle/Text.hs @@ -858,7 +858,7 @@ hGetBufSome h ptr count -- that bufReadNBNonEmpty will not -- issue another read. else - bufReadNBEmpty h_ buf (castPtr ptr) 0 count + bufReadNBNonEmpty h_ buf (castPtr ptr) 0 count haFD :: Handle__ -> FD haFD h_@Handle__{..} = -- 1.7.10.4