projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
39c429e13d1b4ab30a9ec65c5366f25443f7fc73
[ghc-hetmet.git]
/
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