summaryrefslogtreecommitdiff
path: root/Annex/Content/Direct.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-17 16:16:10 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-17 16:16:10 -0400
commit64c491738e5af11baa0ee7b5fc63d3514efb46f1 (patch)
tree4fc755f7a4ef415f5bfaae508b03a48bd2456bdb /Annex/Content/Direct.hs
parent4e74c0d7f33a66eb524ef020ef4401fa322db34c (diff)
store copy in inode cache too
Diffstat (limited to 'Annex/Content/Direct.hs')
-rw-r--r--Annex/Content/Direct.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Annex/Content/Direct.hs b/Annex/Content/Direct.hs
index 49d317258..91073f687 100644
--- a/Annex/Content/Direct.hs
+++ b/Annex/Content/Direct.hs
@@ -190,9 +190,10 @@ compareInodeCachesWith = ifM inodesChanged ( return Weakly, return Strongly )
addContentWhenNotPresent :: Key -> FilePath -> FilePath -> Annex ()
addContentWhenNotPresent key contentfile associatedfile = do
v <- isAnnexLink associatedfile
- when (Just key == v) $
+ when (Just key == v) $ do
replaceFile associatedfile $
liftIO . void . copyFileExternal contentfile
+ updateInodeCache key associatedfile
{- Some filesystems get new inodes each time they are mounted.
- In order to work on such a filesystem, a sentinal file is used to detect