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 #if defined(__MINGW32__)
   8 import PrelHandle(hSetBinaryMode)
   9 #endif
  10
  11 main = do
  12   f <- doesFileExist "readwrite001.inout"
  13   when f (removeFile "readwrite001.inout")
  14   hdl <- openFile "readwrite001.inout" ReadWriteMode
  15 # if defined(__MINGW32__)
  16   hSetBinaryMode hdl True
  17 # endif
  18   hSetBuffering hdl LineBuffering
  19   hPutStr hdl "as"
  20   hSeek hdl AbsoluteSeek 0
  21   ch <- hGetChar hdl
  22   print ch
  23   hPutStr hdl "ase"
  24   hSeek hdl AbsoluteSeek 0
  25   putChar '\n'
  26   ls <- hGetContents hdl
  27   putStrLn ls
  28