From: Max Bolingbroke <batterseapower@hotmail.com>
Date: Sun, 3 Apr 2011 20:53:45 +0000 (+0100)
Subject: Change debug prints in readTextDevice' to refer to right function
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6b62d7caf5428f518bc612c913db429f4f25e3a5;p=ghc-base.git

Change debug prints in readTextDevice' to refer to right function
---

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