remove dead code
This commit is contained in:
parent
f23ae9a45b
commit
ba62c3467b
1 changed files with 0 additions and 13 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Reference in a new issue