[project @ 2000-08-24 10:27:44 by simonmar]
[ghc-hetmet.git] / ghc / tests / io / should_run / io034.hs
1 import Directory
2
3 main = do
4   p <- getPermissions "."
5   print p
6   p <- getPermissions "io034.hs"
7   print p
8   p <- getPermissions "io034.bin"
9   print p