diff options
Diffstat (limited to 'Annex')
-rw-r--r-- | Annex/Content.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 6f2c9690e..ad04bdba1 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -470,9 +470,8 @@ preseedTmp key file = go =<< inAnnex key liftIO $ copyFileExternal s file ) -{- Blocks writing to an annexed file. The file is made unwritable - - to avoid accidental edits. core.sharedRepository may change - - who can read it. -} +{- Blocks writing to an annexed file, and modifies file permissions to + - allow reading it, per core.sharedRepository setting. -} freezeContent :: FilePath -> Annex () freezeContent file = unlessM crippledFileSystem $ liftIO . go =<< fromRepo getSharedRepository @@ -483,7 +482,9 @@ freezeContent file = unlessM crippledFileSystem $ go AllShared = modifyFileMode file $ removeModes writeModes . addModes readModes - go _ = preventWrite file + go _ = modifyFileMode file $ + removeModes writeModes . + addModes [ownerReadMode] {- Allows writing to an annexed file that freezeContent was called on - before. -} |