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

assistant direct mode file add/change bookkeeping

Browse source 
When a file is changed in direct mode, the old content is probably lost
(at least from the local repo), and bookeeping needs to be updated to
reflect this.

Also, synthetic add events are generated at assistant startup, so
make it detect when the file has not really changed, and avoid re-adding
it.

This does add the overhead of querying the runing git cat-file for the
key that's recorded in git for the file, each time a file is added or
modified in direct mode.
This commit is contained in:
Joey Hess 2012-12-25 15:48:15 -04:00
parent 221584ec7f
commit eb40227d15
4 changed files with 39 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex/CatFile.hs
View file

@ -44,6 +44,6 @@ catFileHandle = maybe startup return =<< Annex.getState Annex.catfilehandle
Annex.changeState $ \s -> s { Annex.catfilehandle = Just h }
return h
{- From the Sha of a symlink back to the key. -}
catKey :: Sha -> Annex (Maybe Key)
catKey sha = fileKey . takeFileName . encodeW8 . L.unpack <$> catObject sha
{- From the Sha or Ref of a symlink back to the key. -}
catKey :: Ref -> Annex (Maybe Key)
catKey ref = fileKey . takeFileName . encodeW8 . L.unpack <$> catObject ref