ghc/tests/lib/IO/hSeek004.hs

   1 -- !!! can't seek an AppendMode handle
   2
   3 import IO
   4
   5 main = do
   6   h <- openFile "hSeek004.out" AppendMode
   7   hSetBinaryMode h True
   8   try (hSeek h AbsoluteSeek 0) >>= print