Typo
[packages/base.git] / tests / hPutBuf002.hs
1 import System.IO
2 import Foreign
3 import Foreign.C
4
5 -- !!! this test failed to write anything in GHC 5.00.2
6 main = do
7 h <- openBinaryFile "hPutBuf002.out" ReadWriteMode
8 withCStringLen "hello world\n" $ \(ptr,len) -> hPutBuf h ptr len
9 hFileSize h >>= print