ghc/tests/lib/IO/readwrite001.hs

   1 -- !!! RW files
   2 module Main(main) where
   3
   4 import IO
   5 import Directory ( removeFile, doesFileExist )
   6 import Monad
   7
   8 main = do
   9   f <- doesFileExist "readwrite001.inout"
  10   when f (removeFile "readwrite001.inout")
  11   hdl <- openFile "readwrite001.inout" ReadWriteMode
  12   hSetBinaryMode hdl True
  13   hSetBuffering hdl LineBuffering
  14   hPutStr hdl "as"
  15   hSeek hdl AbsoluteSeek 0
  16   ch <- hGetChar hdl
  17   print ch
  18   hPutStr hdl "ase"
  19   hSeek hdl AbsoluteSeek 0
  20   putChar '\n'
  21   ls <- hGetContents hdl
  22   putStrLn ls
  23