diff options
Diffstat (limited to 'Assistant/WebApp/DashBoard.hs')
| -rw-r--r-- | Assistant/WebApp/DashBoard.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Assistant/WebApp/DashBoard.hs b/Assistant/WebApp/DashBoard.hs index e51eb7777..949793121 100644 --- a/Assistant/WebApp/DashBoard.hs +++ b/Assistant/WebApp/DashBoard.hs @@ -26,6 +26,7 @@ import Utility.DataUnits import Types.Key import qualified Remote import qualified Git +import Locations.UserConfig import Yesod import Text.Hamlet @@ -211,6 +212,7 @@ startTransfer t = do { transferPid = Nothing } liftIO $ Transferrer.transferThread dstatus slots t info inImmediateTransferSlot + =<< readProgramFile getCurrentTransfers :: Handler TransferMap getCurrentTransfers = currentTransfers |