remove dead code

This commit is contained in:
Joey Hess 2021-06-21 13:54:12 -04:00
parent f23ae9a45b
commit ba62c3467b
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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 ()