[commit: base] master: Change debug prints in readTextDevice' to refer to right function (6b62d7c)

[Max Bolingbroke]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6b62d7caf5428f518bc612c913db429f4f25e3a5

>---------------------------------------------------------------

commit 6b62d7caf5428f518bc612c913db429f4f25e3a5
Author: Max Bolingbroke <batterseapower at hotmail.com>
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_ at 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_ at 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