testsuite/tests/lib/IO/readwrite003.hs


1
2
3
4
5
6
7
8
9
10
11
12

import System.IO

file = "readwrite003.txt"

main = do
  writeFile file "ab\ncd\nef\ngh"
  h <- openFile file ReadWriteMode
  hGetLine h
  hPutStrLn h "yz"
  hClose h
  h <- openBinaryFile file ReadMode
  hGetContents h >>= putStr