From c5dad0e503b8e57e35213edbb7a67b4bfc6e0dbf Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 27 Aug 2009 15:06:28 +0000 Subject: [PATCH] fix debugging code --- GHC/IO/Handle/Internals.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 () -- 1.7.10.4