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

queue uploads when a new or renamed symlink is handled

Browse source
This commit is contained in:
Joey Hess 2012-11-24 15:38:24 -04:00
parent 38e4695356
commit c282c8b492
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Assistant/Threads/Watcher.hs
View file

@ -178,12 +178,15 @@ onAddSymlink file filestatus = go =<< liftAnnex (Backend.lookupFile file)
madeChange file LinkChange madeChange file LinkChange
{- When a new link appears, or a link is changed, after the startup {- When a new link appears, or a link is changed, after the startup
- scan, handle getting or dropping the key's content. -} - scan, handle getting or dropping the key's content.
- Also, moving or copying a link may caused it be be transferred
- elsewhere, so check that too. -}
checkcontent key daemonstatus checkcontent key daemonstatus
| scanComplete daemonstatus = do | scanComplete daemonstatus = do
present <- liftAnnex $ inAnnex key present <- liftAnnex $ inAnnex key
unless present $ if present
queueTransfers Next key (Just file) Download then queueTransfers Next key (Just file) Upload
else queueTransfers Next key (Just file) Download
handleDrops present key (Just file) handleDrops present key (Just file)
| otherwise = noop | otherwise = noop