From: Ian Lynagh <igloo@earth.li>
Date: Wed, 11 Aug 2010 18:27:30 +0000 (+0000)
Subject: Add emptyPermissions
X-Git-Tag: ghc-darcs-git-switchover~3
X-Git-Url: http://git.megacz.com/?p=haskell-directory.git;a=commitdiff_plain;h=3602419d95b3b8d807a5c7cb6d151ecc9166be86

Add emptyPermissions
---

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 }