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:
Joey Hess 2012-08-12 12:11:20 -04:00
parent 37eed5d8d0
commit b6b8f6da9c
5 changed files with 36 additions and 12 deletions

View file

@ -21,6 +21,7 @@ import Assistant.ThreadedMonad
import Assistant.DaemonStatus
import Assistant.ScanRemotes
import Assistant.TransferQueue
import Assistant.TransferSlots
import Utility.WebApp
import Utility.FileMode
import Utility.TempFile
@ -43,15 +44,17 @@ webAppThread
-> DaemonStatusHandle
-> ScanRemoteMap
-> TransferQueue
-> TransferSlots
-> Maybe (IO String)
-> Maybe (Url -> FilePath -> IO ())
-> IO ()
webAppThread mst dstatus scanremotes transferqueue postfirstrun onstartup = do
webAppThread mst dstatus scanremotes transferqueue transferslots postfirstrun onstartup = do
webapp <- WebApp
<$> pure mst
<*> pure dstatus
<*> pure scanremotes
<*> pure transferqueue
<*> pure transferslots
<*> (pack <$> genRandomToken)
<*> getreldir mst
<*> pure $(embed "static")