From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 27 Aug 2009 15:06:28 +0000 (+0000)
Subject: fix debugging code
X-Git-Tag: ghc-darcs-git-switchover~323
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c5dad0e503b8e57e35213edbb7a67b4bfc6e0dbf;p=ghc-base.git

fix debugging code
---

diff --git a/GHC/IO/Handle/Internals.hs b/GHC/IO/Handle/Internals.hs
index 403407f..3214bfd 100644
--- a/GHC/IO/Handle/Internals.hs
+++ b/GHC/IO/Handle/Internals.hs
@@ -680,7 +680,7 @@ hLookAhead_ handle_@Handle__{..} = do
 debugIO :: String -> IO ()
 #if defined(DEBUG_DUMP)
 debugIO s = do 
-  withCStringLen (s++"\n") $ \(p,len) -> c_write 1 p (fromIntegral len)
+  withCStringLen (s++"\n") $ \(p,len) -> c_write 1 (castPtr p) (fromIntegral len)
   return ()
 #else
 debugIO s = return ()