From ba62c3467b22964cfc2d36c2805cf3316df60e4c Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 21 Jun 2021 13:54:12 -0400
Subject: [PATCH] remove dead code

---
 Annex/Perms.hs | 13 -------------
 1 file changed, 13 deletions(-)

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