tests/getPermissions001.hs

   1 import Directory
   2
   3 main = do
   4   p <- getPermissions "."
   5   print p
   6   p <- getPermissions "getPermissions001.hs"
   7   print p
   8 #ifndef i386_unknown_mingw32
   9   p <- getPermissions "getPermissions001"
  10 #else
  11   p <- getPermissions "getPermissions001.exe"
  12 #endif
  13   print p