implement resuming of paused transfers
Currently waits for a new transfer slot to open up, which probably needs to change..
This commit is contained in:
parent
37eed5d8d0
commit
b6b8f6da9c
5 changed files with 36 additions and 12 deletions
|
@ -13,6 +13,7 @@ import Assistant
|
|||
import Assistant.DaemonStatus
|
||||
import Assistant.ScanRemotes
|
||||
import Assistant.TransferQueue
|
||||
import Assistant.TransferSlots
|
||||
import Assistant.Threads.WebApp
|
||||
import Utility.WebApp
|
||||
import Utility.Daemon (checkDaemon, lockPidFile)
|
||||
|
@ -89,9 +90,10 @@ firstRun = do
|
|||
dstatus <- atomically . newTMVar =<< newDaemonStatus
|
||||
scanremotes <- newScanRemoteMap
|
||||
transferqueue <- newTransferQueue
|
||||
transferslots <- newTransferSlots
|
||||
v <- newEmptyMVar
|
||||
let callback a = Just $ a v
|
||||
webAppThread Nothing dstatus scanremotes transferqueue
|
||||
webAppThread Nothing dstatus scanremotes transferqueue transferslots
|
||||
(callback signaler) (callback mainthread)
|
||||
where
|
||||
signaler v = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue