better transfer queue management

Allow transfers to be added with blocking until the queue is sufficiently
small.

Better control over which end of the queue to add a transfer to.
This commit is contained in:
Joey Hess 2012-07-25 13:12:34 -04:00
parent 6107328a6b
commit a9dbfdf28d
4 changed files with 52 additions and 25 deletions

View file

@ -206,7 +206,7 @@ onAddSymlink threadname file filestatus dstatus transferqueue = go =<< Backend.l
- try to get the key's content. -}
checkcontent key daemonstatus
| scanComplete daemonstatus = unlessM (inAnnex key) $
queueTransfers transferqueue dstatus
queueTransfers Next transferqueue dstatus
key (Just file) Download
| otherwise = noop