diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-14 16:00:20 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-14 16:00:20 -0400 |
| commit | dc367b090adec9f2fc5f37cba5e9b5d5f2decbce (patch) | |
| tree | 3aa44eabafec7c3551fc95718823d62b80164e0c /Remote | |
| parent | 513b3a639796b06828570b6da6b049095abd5b83 (diff) | |
add missing progress bar
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Git.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index 2b2a68d05..373299c2d 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 |