diff options
Diffstat (limited to 'Annex/Perms.hs')
| -rw-r--r-- | Annex/Perms.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Annex/Perms.hs b/Annex/Perms.hs index dc1cb2f8b..f5925b741 100644 --- a/Annex/Perms.hs +++ b/Annex/Perms.hs @@ -12,6 +12,7 @@ module Annex.Perms ( noUmask, createContentDir, freezeContentDir, + thawContentDir, ) where import Common.Annex @@ -87,6 +88,10 @@ freezeContentDir file = unlessM crippledFileSystem $ go AllShared = groupWriteRead dir go _ = preventWrite dir +thawContentDir :: FilePath -> Annex () +thawContentDir file = unlessM crippledFileSystem $ + liftIO $ allowWrite $ parentDir file + {- Makes the directory tree to store an annexed file's content, - with appropriate permissions on each level. -} createContentDir :: FilePath -> Annex () |