[project @ 2001-08-22 11:45:06 by sewardj]
[ghc-hetmet.git] / ghc / tests / lib / IO / hFileSize001.hs
1 import IO
2
3 -- !!! test hFileSize
4
5 main = do
6     h  <- openFile "hFileSize001.hs" ReadMode
7     sz <- hFileSize h
8     print sz