diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-12-07 13:37:35 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-12-07 13:37:35 -0400 |
| commit | 1827d467395e66993b38c1b6269e4832abb3cc26 (patch) | |
| tree | d52ae935aecc2425c5e4f8042c755ce11fcf6df0 /Remote | |
| parent | a620b256aca3eee4ce2edae713d57965627f3ef7 (diff) | |
update progress meter when sending to p2p remote
This commit was sponsored by Thom May on Patreon.
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/P2P.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Remote/P2P.hs b/Remote/P2P.hs index f4f1d5f38..8286a9a18 100644 --- a/Remote/P2P.hs +++ b/Remote/P2P.hs @@ -73,10 +73,9 @@ chainGen addr r u c gc = do } return (Just this) --- TODO update progress store :: UUID -> P2PAddress -> ConnectionPool -> Key -> AssociatedFile -> MeterUpdate -> Annex Bool store u addr connpool k af p = fromMaybe False - <$> runProto u addr connpool (P2P.put k af) + <$> runProto u addr connpool (P2P.put k af p) retrieve :: UUID -> P2PAddress -> ConnectionPool -> Key -> AssociatedFile -> FilePath -> MeterUpdate -> Annex (Bool, Verification) retrieve u addr connpool k af dest _p = unVerified $ fromMaybe False |