ghc/tests/lib/IO/hSeek004.hs

   1 -- !!! can't seek an AppendMode handle
   2
   3 import IO
   4 #if defined(__MINGW32__)
   5 import PrelHandle(hSetBinaryMode)
   6 #endif
   7
   8 main = do
   9   h <- openFile "hSeek004.out" AppendMode
  10 # if defined(__MINGW32__)
  11   hSetBinaryMode h True
  12 # endif
  13   try (hSeek h AbsoluteSeek 0) >>= print