mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add allowRead

Browse source
This commit is contained in:
Joey Hess 2013-11-20 13:42:13 -04:00
parent 94251de91e
commit 9c9a3c10ce
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Utility/FileMode.hs
View file

@ -64,6 +64,10 @@ preventWrite f = modifyFileMode f $ removeModes writeModes
allowWrite :: FilePath -> IO () allowWrite :: FilePath -> IO ()
allowWrite f = modifyFileMode f $ addModes [ownerWriteMode] allowWrite f = modifyFileMode f $ addModes [ownerWriteMode]
{- Turns a file's owner read bit back on. -}
allowRead :: FilePath -> IO ()
allowRead f = modifyFileMode f $ addModes [ownerReadMode]
{- Allows owner and group to read and write to a file. -} {- Allows owner and group to read and write to a file. -}
groupSharedModes :: [FileMode] groupSharedModes :: [FileMode]
groupSharedModes = groupSharedModes =