2 module Main(main) where
5 import Directory ( removeFile, doesFileExist )
9 f <- doesFileExist "io031.inout"
10 when f (removeFile "io031.inout")
11 hdl <- openFile "io031.inout" ReadWriteMode
12 hSetBuffering hdl LineBuffering
14 hSeek hdl AbsoluteSeek 0
18 hSeek hdl AbsoluteSeek 0
20 ls <- hGetContents hdl