~ubuntu-branches/ubuntu/precise/ghc/precise

« back to all changes in this revision

Viewing changes to libraries/directory/tests/getPermissions001.hs

  • Committer: Bazaar Package Importer
  • Author(s): Joachim Breitner
  • Date: 2011-01-17 12:49:24 UTC
  • Revision ID: james.westby@ubuntu.com-20110117124924-do1pym1jlf5o636m
Tags: upstream-7.0.1
ImportĀ upstreamĀ versionĀ 7.0.1

Show diffs side-by-side

added added

removed removed

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