mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

more generic

Browse source
This commit is contained in:
Joey Hess 2012-08-29 15:56:47 -04:00
parent 0842e99637
commit c21a9fe04a
2 changed files with 12 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/WebApp/DashBoard.hs
View file

@ -175,7 +175,8 @@ cancelTransfer pause t = do
liftIO $ do
unless pause $
{- remove queued transfer -}
void $ dequeueTransfer (transferQueue webapp) dstatus t
void $ dequeueTransfers (transferQueue webapp) dstatus $
equivilantTransfer t
{- stop running transfer -}
maybe noop (stop dstatus) (M.lookup t m)
where