From dc4de7faf73c76492037ed53c6929b636b62cef8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 14 Apr 2015 16:00:20 -0400 Subject: [PATCH] add missing progress bar --- Remote/Git.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Remote/Git.hs b/Remote/Git.hs index 2b2a68d05b..373299c2d9 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -466,7 +466,10 @@ copyFromRemoteCheap _ _ _ = return False {- Tries to copy a key's content to a remote's annex. -} copyToRemote :: Remote -> Key -> AssociatedFile -> MeterUpdate -> Annex Bool -copyToRemote r key file p +copyToRemote r key file p = parallelMetered (Just p) key $ copyToRemote' r key file + +copyToRemote' :: Remote -> Key -> AssociatedFile -> MeterUpdate -> Annex Bool +copyToRemote' r key file p | not $ Git.repoIsUrl (repo r) = guardUsable (repo r) (return False) $ commitOnCleanup r $ copylocal =<< Annex.Content.prepSendAnnex key