diff --git a/Annex/Perms.hs b/Annex/Perms.hs index 7af05044c4..cae5a94a31 100644 --- a/Annex/Perms.hs +++ b/Annex/Perms.hs @@ -17,7 +17,6 @@ module Annex.Perms ( freezeContent, isContentWritePermOk, thawContent, - chmodContent, createContentDir, freezeContentDir, thawContentDir, @@ -157,18 +156,6 @@ isContentWritePermOk file = ifM crippledFileSystem Nothing -> True Just havemode -> havemode == combineModes (havemode:wantmode) -{- Adjusts read mode of annexed file per core.sharedRepository setting. -} -chmodContent :: RawFilePath -> Annex () -chmodContent file = unlessM crippledFileSystem $ - withShared go - where - go GroupShared = liftIO $ void $ tryIO $ modifyFileMode file $ - addModes [ownerReadMode, groupReadMode] - go AllShared = liftIO $ void $ tryIO $ modifyFileMode file $ - addModes readModes - go _ = liftIO $ modifyFileMode file $ - addModes [ownerReadMode] - {- Allows writing to an annexed file that freezeContent was called on - before. -} thawContent :: RawFilePath -> Annex ()