ghc/tests/io/should_run/io013.hs

   1 import IO -- 1.3
   2
   3 main =
   4     openFile "io013.in" ReadMode >>= \ h ->
   5     hFileSize h >>= \ sz ->
   6     print sz >>
   7     hSeek h SeekFromEnd (-3) >>
   8     hGetChar h >>= \ x ->
   9     putStr (x:"\n") >>
  10     hSeek h RelativeSeek (-2) >>
  11     hGetChar h >>= \ w ->
  12     putStr (w:"\n") >>
  13     hIsSeekable h >>= \ True ->
  14     hClose h >>
  15     openFile "/dev/null" ReadMode >>= \ h ->
  16     hIsSeekable h >>= \ False ->
  17     hClose h
  18