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

@ -15,6 +15,7 @@ import Assistant.ThreadedMonad
import Assistant.DaemonStatus
import Assistant.ScanRemotes
import Assistant.TransferQueue
import Assistant.TransferSlots
import Assistant.Alert
import Utility.NotificationBroadcaster
import Utility.WebApp
@ -36,6 +37,7 @@ data WebApp = WebApp
, daemonStatus :: DaemonStatusHandle
, scanRemotes :: ScanRemoteMap
, transferQueue :: TransferQueue
, transferSlots :: TransferSlots
, secretToken :: Text
, relDir :: Maybe FilePath
, getStatic :: Static