From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 9 Sep 2010 11:33:31 +0000 (+0000)
Subject: Remove debugging code accidentally left in
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bad25ed6cb9b939d786e53d3074f0cd4f869af28;p=ghc-base.git

Remove debugging code accidentally left in
---

diff --git a/GHC/IO/Handle/Text.hs b/GHC/IO/Handle/Text.hs
index f05905c..745dc18 100644
--- a/GHC/IO/Handle/Text.hs
+++ b/GHC/IO/Handle/Text.hs
@@ -949,7 +949,7 @@ bufReadNBEmpty :: Handle__ -> Buffer Word8 -> Ptr Word8 -> Int -> Int -> IO Int
 bufReadNBEmpty   h_@Handle__{..}
                  buf@Buffer{ bufRaw=raw, bufR=w, bufL=r, bufSize=sz }
                  ptr so_far count
-  | count > sz, False,
+  | count > sz,
     Just fd <- cast haDevice = do
        m <- RawIO.readNonBlocking (fd::FD) ptr count
        case m of