diff options
author | 2012-07-25 13:12:34 -0400 | |
---|---|---|
committer | 2012-07-25 13:12:34 -0400 | |
commit | a9dbfdf28d6c97c636e58be85f68d2a3f6efef77 (patch) | |
tree | 667c010c9a933535a37d824b424fcae0c2bc35d4 /Assistant/Threads/Watcher.hs | |
parent | 6107328a6b981ec8130e4154be1ebe7bc11979df (diff) |
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.
Diffstat (limited to 'Assistant/Threads/Watcher.hs')
-rw-r--r-- | Assistant/Threads/Watcher.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs index 617e6d77c..31025361b 100644 --- a/Assistant/Threads/Watcher.hs +++ b/Assistant/Threads/Watcher.hs @@ -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 |