Add emptyPermissions

diff --git a/System/Directory.hs b/System/Directory.hs
index 1291d71..e179c93 100644 (file)
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -56,6 +56,7 @@ module System.Directory
     -- $permissions
 
     , Permissions
+    , emptyPermissions
     , readable          -- :: Permissions -> Bool
     , writable          -- :: Permissions -> Bool
     , executable        -- :: Permissions -> Bool
@@ -163,6 +164,14 @@ data Permissions
     executable, searchable :: Bool 
    } deriving (Eq, Ord, Read, Show)
 
+emptyPermissions :: Permissions
+emptyPermissions = Permissions {
+                       readable   = False,
+                       writable   = False,
+                       executable = False,
+                       searchable = False
+                   }
+
 setOwnerReadable :: Bool -> Permissions -> Permissions
 setOwnerReadable b p = p { readable = b }