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