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:
345ff2c
)
Change debug prints in readTextDevice' to refer to right function
author
Max Bolingbroke
<batterseapower@hotmail.com>
Sun, 3 Apr 2011 20:53:45 +0000
(21:53 +0100)
committer
Max Bolingbroke
<batterseapower@hotmail.com>
Sun, 3 Apr 2011 20:53:45 +0000
(21:53 +0100)
GHC/IO/Handle/Internals.hs
patch
|
blob
|
history
diff --git
a/GHC/IO/Handle/Internals.hs
b/GHC/IO/Handle/Internals.hs
index
6409bbd
..
1dbd4bb
100644
(file)
--- a/
GHC/IO/Handle/Internals.hs
+++ b/
GHC/IO/Handle/Internals.hs
@@
-825,7
+825,7
@@
readTextDevice' h_@Handle__{..} bbuf0 cbuf = do
then ioe_invalidCharacter
else return bbuf2
then ioe_invalidCharacter
else return bbuf2
- debugIO ("readTextDevice after reading: bbuf=" ++ summaryBuffer bbuf2)
+ debugIO ("readTextDevice' after reading: bbuf=" ++ summaryBuffer bbuf2)
(bbuf3,cbuf') <-
case haDecoder of
(bbuf3,cbuf') <-
case haDecoder of
@@
-837,7
+837,7
@@
readTextDevice' h_@Handle__{..} bbuf0 cbuf = do
writeIORef haLastDecode (state, bbuf2)
(encode decoder) bbuf2 cbuf
writeIORef haLastDecode (state, bbuf2)
(encode decoder) bbuf2 cbuf
- debugIO ("readTextDevice after decoding: cbuf=" ++ summaryBuffer cbuf' ++
+ debugIO ("readTextDevice' after decoding: cbuf=" ++ summaryBuffer cbuf' ++
" bbuf=" ++ summaryBuffer bbuf3)
writeIORef haByteBuffer bbuf3
" bbuf=" ++ summaryBuffer bbuf3)
writeIORef haByteBuffer bbuf3