X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FDirectory.hs;fp=System%2FDirectory.hs;h=e179c93c6b0fa9d579d464d3dcee3d9db85243de;hb=3602419d95b3b8d807a5c7cb6d151ecc9166be86;hp=1291d713753abcc528e28e0b98f96c5b780462af;hpb=0924cc38b682e7cf2c265c15393313300616e479;p=haskell-directory.git

diff --git a/System/Directory.hs b/System/Directory.hs
index 1291d71..e179c93 100644
--- 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 }