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/Content.hs | |
| parent | 9c1c244d99d5e543cc1e064a629444ddcb07b9b0 (diff) | |
refactor
Diffstat (limited to 'Annex/Content.hs')
| -rw-r--r-- | Annex/Content.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 0f9c4acdf..6e040b9ac 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -353,8 +353,7 @@ removeAnnex :: Key -> Annex () removeAnnex key = withObjectLoc key remove removedirect where remove file = do - unlessM crippledFileSystem $ - liftIO $ allowWrite $ parentDir file + thawContentDir file liftIO $ nukeFile file removeInodeCache key cleanObjectLoc key @@ -374,8 +373,7 @@ removeAnnex key = withObjectLoc key remove removedirect fromAnnex :: Key -> FilePath -> Annex () fromAnnex key dest = do file <- calcRepo $ gitAnnexLocation key - unlessM crippledFileSystem $ - liftIO $ allowWrite $ parentDir file + thawContentDir file thawContent file liftIO $ moveFile file dest cleanObjectLoc key @@ -388,8 +386,7 @@ moveBad key = do bad <- fromRepo gitAnnexBadDir let dest = bad </> takeFileName src createAnnexDirectory (parentDir dest) - unlessM crippledFileSystem $ - liftIO $ allowWrite (parentDir src) + thawContentDir src liftIO $ moveFile src dest cleanObjectLoc key logStatus key InfoMissing |