From: simonpj@microsoft.com <unknown>
Date: Sun, 15 Aug 2010 14:51:27 +0000 (+0000)
Subject: Add a missing castPtr (only shows up in -DDEBUG)
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=df1779036dfeb32a774ff212e3267fcdd2dab890;p=ghc-base.git

Add a missing castPtr (only shows up in -DDEBUG)
---

diff --git a/GHC/IO/Encoding/UTF16.hs b/GHC/IO/Encoding/UTF16.hs
index d44259f..1f27bb1 100644
--- a/GHC/IO/Encoding/UTF16.hs
+++ b/GHC/IO/Encoding/UTF16.hs
@@ -48,10 +48,11 @@ import GHC.IORef
 import System.Posix.Internals
 import Foreign.C
 import GHC.Show
+import GHC.Ptr
 
 puts :: String -> IO ()
 puts s = do withCStringLen (s++"\n") $ \(p,len) -> 
-                c_write 1 p (fromIntegral len)
+                c_write 1 (castPtr p) (fromIntegral len)
             return ()
 #endif