From bad25ed6cb9b939d786e53d3074f0cd4f869af28 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 9 Sep 2010 11:33:31 +0000 Subject: [PATCH] Remove debugging code accidentally left in --- 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 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 -- 1.7.10.4