projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change debug prints in readTextDevice' to refer to right function
[ghc-base.git]
/
GHC
/
IO
/
Handle
/
Internals.hs
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