Typo
[packages/base.git] / tests / hPutBuf001.hs
1 import System.IO
2 import Foreign
3 import Foreign.C
4
5 main = do
6 hSetBinaryMode stdout True
7 withCStringLen "hello world\n" $ \(ptr,len) -> hPutBuf stdout ptr len