diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-12-08 19:56:02 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-12-08 19:56:02 -0400 |
| commit | 1d9ba9d9459b44c306b7c4f261b84bad38185109 (patch) | |
| tree | 5b46c5cd6450cf7ad9ef1f4e20ffe74135d0ef7b /Annex | |
| parent | 691eeb92d9fc4ffc445750a279d125f272934897 (diff) | |
update progress logs in remotedaemon send/receive
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/Transfer.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs index 323600e96..b33dace4a 100644 --- a/Annex/Transfer.hs +++ b/Annex/Transfer.hs @@ -45,6 +45,11 @@ instance Observable (Bool, Verification) where observeBool = fst observeFailure = (False, UnVerified) +instance Observable (Either e Bool) where + observeBool (Left _) = False + observeBool (Right b) = b + observeFailure = Right False + upload :: Observable v => UUID -> Key -> AssociatedFile -> RetryDecider -> (MeterUpdate -> Annex v) -> NotifyWitness -> Annex v upload u key f d a _witness = guardHaveUUID u $ runTransfer (Transfer Upload u key) f d a |