path: root/testsuite/tests/ghc-regress/lib/IO/hSeek004.hs

-- !!! can't seek an AppendMode handle

import System.IO
import System.IO.Error

main = do
  h <- openFile "hSeek004.out" AppendMode
  try (hSeek h AbsoluteSeek 0) >>= print