remove dead code

diff --git a/Annex/Perms.hs b/Annex/Perms.hs
index 7af05044c4fc940657db28a8c94dd5e765cdc7af..cae5a94a31846a8bef9982b7a75422b86db49ff7 100644 (file)
--- 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 ()