From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 21 Jan 2011 14:35:55 +0000 (+0000)
Subject: fix silly mistake in hGetBufSome (#4895)
X-Git-Url: http://git.megacz.com/?p=ghc-base.git;a=commitdiff_plain;h=ac0439db2ece671089cec9ade21754c3ad22c134

fix silly mistake in hGetBufSome (#4895)
---

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__{..} =