hlint
This commit is contained in:
parent
8cc90219d2
commit
c1990702e9
15 changed files with 40 additions and 42 deletions
|
@ -265,7 +265,7 @@ getFailedTransfers u = catMaybes <$> (liftIO . getpairs =<< concat <$> findfiles
|
|||
clearFailedTransfers :: UUID -> Annex [(Transfer, TransferInfo)]
|
||||
clearFailedTransfers u = do
|
||||
failed <- getFailedTransfers u
|
||||
mapM_ removeFailedTransfer $ map fst failed
|
||||
mapM_ (removeFailedTransfer . fst) failed
|
||||
return failed
|
||||
|
||||
removeFailedTransfer :: Transfer -> Annex ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue