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

@ -161,7 +161,7 @@ handleAdds st changechan transferqueue dstatus cs = returnWhen (null pendingadds
sha <- inRepo $
Git.HashObject.hashObject BlobObject link
stageSymlink file sha
queueTransfers transferqueue dstatus key (Just file) Upload
queueTransfers Next transferqueue dstatus key (Just file) Upload
showEndOk
return $ Just change