-- $permissions
, Permissions
+ , emptyPermissions
, readable -- :: Permissions -> Bool
, writable -- :: Permissions -> Bool
, executable -- :: Permissions -> Bool
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 }