projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2004-09-08 11:10:08 by ross]
[ghc-base.git]
/
GHC
/
IO.hs
diff --git
a/GHC/IO.hs
b/GHC/IO.hs
index
27b59f1
..
29fdc60
100644
(file)
--- a/
GHC/IO.hs
+++ b/
GHC/IO.hs
@@
-27,7
+27,7
@@
module GHC.IO (
memcpy_baoff_ptr,
) where
memcpy_baoff_ptr,
) where
-#include "config.h"
+#include "ghcconfig.h"
import Foreign
import Foreign.C
import Foreign
import Foreign.C
@@
-410,7
+410,7
@@
hPutChar handle c =
LineBuffering -> hPutcBuffered handle_ True c
BlockBuffering _ -> hPutcBuffered handle_ False c
NoBuffering ->
LineBuffering -> hPutcBuffered handle_ True c
BlockBuffering _ -> hPutcBuffered handle_ False c
NoBuffering ->
- withObject (castCharToCChar c) $ \buf -> do
+ with (castCharToCChar c) $ \buf -> do
writeRawBufferPtr "hPutChar" (fromIntegral fd) (haIsStream handle_) buf 0 1
return ()
writeRawBufferPtr "hPutChar" (fromIntegral fd) (haIsStream handle_) buf 0 1
return ()