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

remove dead code

Browse source
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
1 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Annex/Perms.hs
View file

@ -17,7 +17,6 @@ module Annex.Perms (
freezeContent, freezeContent,
isContentWritePermOk, isContentWritePermOk,
thawContent, thawContent,
chmodContent,
createContentDir, createContentDir,
freezeContentDir, freezeContentDir,
thawContentDir, thawContentDir,
@ -157,18 +156,6 @@ isContentWritePermOk file = ifM crippledFileSystem
Nothing -> True Nothing -> True
Just havemode -> havemode == combineModes (havemode:wantmode) 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 {- Allows writing to an annexed file that freezeContent was called on
- before. -} - before. -}
thawContent :: RawFilePath -> Annex () thawContent :: RawFilePath -> Annex ()