Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master http://hackage.haskell.org/trac/ghc/changeset/6b62d7caf5428f518bc612c913db42...

---------------------------------------------------------------

commit 6b62d7caf5428f518bc612c913db429f4f25e3a5 Author: Max Bolingbroke Date: Sun Apr 3 21:53:45 2011 +0100 Change debug prints in readTextDevice' to refer to right function

---------------------------------------------------------------

GHC/IO/Handle/Internals.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/GHC/IO/Handle/Internals.hs b/GHC/IO/Handle/Internals.hs index 6409bbd..1dbd4bb 100644 --- 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 - debugIO ("readTextDevice after reading: bbuf=" ++ summaryBuffer bbuf2) + debugIO ("readTextDevice' after reading: bbuf=" ++ summaryBuffer bbuf2) (bbuf3,cbuf') <- case haDecoder of @@ -837,7 +837,7 @@ readTextDevice' h_@Handle__{..} bbuf0 cbuf = do 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