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

moved transfer queueing out of watcher and into committer

Browse source 
This cleaned up the code quite a bit; now the committer just looks at the
Change to see if it's a change that needs to have a transfer queued for it.
If I later want to add dropping keys for files that were removed, or
something like that, this should make it straightforward.

This also fixes a bug. In direct mode, moving a file out of an archive
directory failed to start a transfer to get its content. The problem
was that the file had not been committed to git yet, and so the transfer
code didn't want to touch it, since fileKey failed to get its key.
Only starting transfers after a commit avoids this problem.
This commit is contained in:
Joey Hess 2013-03-10 18:16:03 -04:00
parent 69ab9701eb
commit 65a4c7966f
5 changed files with 50 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Changes.hs
View file

@ -14,7 +14,7 @@ import Utility.TSet
import Data.Time.Clock
{- Handlers call this when they made a change that needs to get committed. -}
madeChange :: FilePath -> ChangeType -> Assistant (Maybe Change)
madeChange :: FilePath -> ChangeInfo -> Assistant (Maybe Change)
madeChange f t = Just <$> (Change <$> liftIO getCurrentTime <*> pure f <*> pure t)
noChange :: Assistant (Maybe Change)