projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c2d9425
)
Remove debugging code accidentally left in
author
Simon Marlow
<marlowsd@gmail.com>
Thu, 9 Sep 2010 11:33:31 +0000
(11:33 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Thu, 9 Sep 2010 11:33:31 +0000
(11:33 +0000)
GHC/IO/Handle/Text.hs
patch
|
blob
|
history
diff --git
a/GHC/IO/Handle/Text.hs
b/GHC/IO/Handle/Text.hs
index
f05905c
..
745dc18
100644
(file)
--- 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