ghc/misc/examples/io/io013/Main.hs

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