diff options
author | Joey Hess <joey@kitenet.net> | 2012-08-12 12:11:20 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-08-12 12:11:20 -0400 |
commit | b6b8f6da9ce18c92cd5c813e07f06d392731bf86 (patch) | |
tree | 897f688c4f75c0364ca01216207eae63c5d00729 /Assistant/Threads/WebApp.hs | |
parent | 37eed5d8d0a3affad6a6a7d0cbbfb1c1e706e635 (diff) |
implement resuming of paused transfers
Currently waits for a new transfer slot to open up, which probably needs to
change..
Diffstat (limited to 'Assistant/Threads/WebApp.hs')
-rw-r--r-- | Assistant/Threads/WebApp.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index 7343c39fe..e203d50ba 100644 --- a/Assistant/Threads/WebApp.hs +++ b/Assistant/Threads/WebApp.hs @@ -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") |