Commit 2e197f1e authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

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

parent e449f181
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment