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

Direct mode: Support filesystems like FAT which can change their inodes each time they are mounted.

Browse source
This commit is contained in:
Joey Hess 2013-02-19 16:26:07 -04:00
parent 0f4cc559a7
commit 624e34649f
7 changed files with 69 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex/Content.hs
View file

@ -304,8 +304,8 @@ prepSendAnnex key = withObjectLoc key indirect direct
direct (f:fs) = do
cache <- recordedInodeCache key
-- check that we have a good file
ifM (liftIO $ compareInodeCache f cache)
( return $ Just (f, liftIO $ compareInodeCache f cache)
ifM (sameInodeCache f cache)
( return $ Just (f, sameInodeCache f cache)
, direct fs
)
@ -356,7 +356,7 @@ removeAnnex key = withObjectLoc key remove removedirect
cache <- recordedInodeCache key
removeInodeCache key
mapM_ (resetfile cache) fs
resetfile cache f = whenM (liftIO $ compareInodeCache f cache) $ do
resetfile cache f = whenM (sameInodeCache f cache) $ do
l <- calcGitLink f key
top <- fromRepo Git.repoPath
cwd <- liftIO getCurrentDirectory