diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-30 19:09:36 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-30 19:09:36 -0400 |
| commit | 292a3e8c38de26dc1be2494ab6a3b8ebbf411b8b (patch) | |
| tree | 561879b260c201a4659b0291cb3742be2cfb694d /Annex/Perms.hs | |
| parent | 9c1c244d99d5e543cc1e064a629444ddcb07b9b0 (diff) | |
refactor
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 () |