diff options
Diffstat (limited to 'Annex/Content.hs')
| -rw-r--r-- | Annex/Content.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 616e4128a..b216b861d 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -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 |