diff options
author | Joey Hess <joey@kitenet.net> | 2012-08-27 13:43:03 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-08-27 13:43:03 -0400 |
commit | 2433f6ca5a602f55986bcd85c20034c88cc44a3b (patch) | |
tree | 03c10c84666301aa7252219f096867c08d662079 /Assistant/WebApp/DashBoard.hs | |
parent | b12db9ef9214d801280310222fc5e9d16f8af3de (diff) |
use the ~/.config/git-annex/program file to find command when running transfers
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 |