import Directory main = aaa "/tmp/FOO" aaa ddd = do createDirectory ddd p <- getPermissions ddd print (readable p) print (writable p) print (executable p)