mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

store copy in inode cache too

Browse source
This commit is contained in:
Joey Hess 2013-05-17 16:16:10 -04:00
parent b8e5b9c645
commit 94cb037aa3
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Annex/Content/Direct.hs
View file

@ -190,9 +190,10 @@ compareInodeCachesWith = ifM inodesChanged ( return Weakly, return Strongly )
addContentWhenNotPresent :: Key -> FilePath -> FilePath -> Annex () addContentWhenNotPresent :: Key -> FilePath -> FilePath -> Annex ()
addContentWhenNotPresent key contentfile associatedfile = do addContentWhenNotPresent key contentfile associatedfile = do
v <- isAnnexLink associatedfile v <- isAnnexLink associatedfile
when (Just key == v) $ when (Just key == v) $ do
replaceFile associatedfile $ replaceFile associatedfile $
liftIO . void . copyFileExternal contentfile liftIO . void . copyFileExternal contentfile
updateInodeCache key associatedfile
{- Some filesystems get new inodes each time they are mounted. {- 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 - In order to work on such a filesystem, a sentinal file is used to detect