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

better file mode setting code

Browse source
This commit is contained in:
Joey Hess 2012-04-21 16:01:56 -04:00
parent b4a5e39ee6
commit 7e45712d19
3 changed files with 30 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Annex/Content.hs
View file

@ -337,12 +337,12 @@ preseedTmp key file = go =<< inAnnex key
freezeContent :: FilePath -> Annex ()
freezeContent file = liftIO . go =<< fromRepo getSharedRepository
where
go GroupShared = do
preventWrite file
groupRead file
go AllShared = do
preventWrite file
allRead file
go GroupShared = modifyFileMode file $
removeModes writeModes .
addModes [ownerReadMode, groupReadMode]
go AllShared = modifyFileMode file $
removeModes writeModes .
addModes readModes
go _ = preventWrite file
{- Allows writing to an annexed file that freezeContent was called on