run resumed transfers immediately, do not wait for free transfer slot

The resumed transfer still uses a slot, so will delay other, queued transfers from starting.
2012-08-12 12:36:08 -04:00 · 2012-08-12 12:36:08 -04:00 · a73e271d60
commit a73e271d60
parent b6b8f6da9c
3 changed files with 20 additions and 10 deletions
--- a/Assistant/WebApp/DashBoard.hs
+++ b/Assistant/WebApp/DashBoard.hs
@ -209,7 +209,8 @@ startTransfer t = do
 			 - forget that old pid, and start a new one. -}
 			liftIO $ updateTransferInfo dstatus t $ info
 				{ transferPid = Nothing }
-			liftIO $ Transferrer.transferThread dstatus slots t info
+			liftIO $ Transferrer.transferThread
+				dstatus slots t info inImmediateTransferSlot

 getCurrentTransfers :: Handler TransferMap
 getCurrentTransfers = currentTransfers