ensure that content directory is thawed when writing direct mode mapping and cache files

Annex/Content.hs

@@ -27,8 +27,6 @@ module Annex.Content (
 	preseedTmp,
 	freezeContent,
 	thawContent,
-	freezeContentDir,
-	createContentDir,
 	replaceFile,
 ) where
 
@@ -457,27 +455,3 @@ thawContent file = liftIO . go =<< fromRepo getSharedRepository
 	go GroupShared = groupWriteRead file
 	go AllShared = groupWriteRead file
 	go _ = allowWrite file
-
-{- Blocks writing to the directory an annexed file is in, to prevent the
- - file accidentially being deleted. However, if core.sharedRepository
- - is set, this is not done, since the group must be allowed to delete the
- - file.
- -}
-freezeContentDir :: FilePath -> Annex ()
-freezeContentDir file = liftIO . go =<< fromRepo getSharedRepository
-  where
-	dir = parentDir file
-	go GroupShared = groupWriteRead dir
-	go AllShared = groupWriteRead dir
-	go _ = preventWrite dir
-
-{- Makes the directory tree to store an annexed file's content,
- - with appropriate permissions on each level. -}
-createContentDir :: FilePath -> Annex ()
-createContentDir dest = do
-	unlessM (liftIO $ doesDirectoryExist dir) $
-		createAnnexDirectory dir 
-	-- might have already existed with restricted perms
-	liftIO $ allowWrite dir
-  where
-	dir = parentDir dest