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   hSetBuffering hdl LineBuffering
  13   hPutStr hdl "as"
  14   hSeek hdl AbsoluteSeek 0
  15   ch <- hGetChar hdl
  16   print ch
  17   hPutStr hdl "ase"
  18   hSeek hdl AbsoluteSeek 0
  19   putChar '\n'
  20   ls <- hGetContents hdl
  21   putStrLn ls
  22