ghc/tests/lib/Directory/getPermissions001.hs

   1 import Directory
   2
   3 main = do
   4   p <- getPermissions "."
   5   print p
   6   p <- getPermissions "getPermissions001.hs"
   7   print p
   8   p <- getPermissions "getPermissions001.bin"
   9   print p