2 module Main(main) where
5 import Directory ( removeFile, doesFileExist )
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
15 hSeek hdl AbsoluteSeek 0
19 hSeek hdl AbsoluteSeek 0
21 ls <- hGetContents hdl