1 -- !!! Testing EOF (and the clearing of it)
2 module Main(main) where
5 import Directory ( removeFile )
6 #if defined(__MINGW32__)
7 import PrelHandle(hSetBinaryMode)
12 hdl <- openFile "hSeek002.hs" ReadMode
13 # if defined(__MINGW32__)
14 hSetBinaryMode hdl True
18 hSeek hdl SeekFromEnd 0
21 hSeek hdl SeekFromEnd (-1)
27 hSeek hdl SeekFromEnd (-1)