mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Display progress meter in -J mode when copying from a local git repo, to a local git repo, and from a remote git repo.

Browse source 
Had everything available, just didn't combine the progress meter with the
other places progress is sent to update it. (And to a remote repo already
did show progress.)

Most special remotes should already display progress meters with -J,
same as without it. One exception to this is the web, since it relies on
wget/curl progress display without -J. Still todo..
This commit is contained in:
Joey Hess 2015-11-16 19:32:30 -04:00
parent 1ac36f1933
commit 7943442dff
Failed to extract signature
3 changed files with 17 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
Remote/Git.hs
View file

@ -440,10 +440,10 @@ copyFromRemote' r key file dest meterupdate
copier <- mkCopier hardlink params
runTransfer (Transfer Download u key)
file noRetry noObserver
(\p -> copier object dest p checksuccess)
| Git.repoIsSsh (repo r) = unVerified $ feedprogressback $ \feeder -> do
(\p -> copier object dest (combineMeterUpdate p meterupdate) checksuccess)
| Git.repoIsSsh (repo r) = unVerified $ feedprogressback $ \p -> do
direct <- isDirect
Ssh.rsyncHelper (Just feeder)
Ssh.rsyncHelper (Just (combineMeterUpdate meterupdate p))
=<< Ssh.rsyncParamsRemote direct r Download key dest file
| Git.repoIsHttp (repo r) = unVerified $ Annex.Content.downloadUrl (keyUrls r key) dest
| otherwise = error "copying from non-ssh, non-http remote not supported"
@ -533,17 +533,19 @@ 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 = concurrentMetered (Just p) key file $ copyToRemote' r key file
copyToRemote r key file meterupdate =
concurrentMetered (Just meterupdate) key file $
copyToRemote' r key file
copyToRemote' :: Remote -> Key -> AssociatedFile -> MeterUpdate -> Annex Bool
copyToRemote' r key file p
copyToRemote' r key file meterupdate
| not $ Git.repoIsUrl (repo r) =
guardUsable (repo r) (return False) $ commitOnCleanup r $
copylocal =<< Annex.Content.prepSendAnnex key
| Git.repoIsSsh (repo r) = commitOnCleanup r $
Annex.Content.sendAnnex key noop $ \object -> do
direct <- isDirect
Ssh.rsyncHelper (Just p)
Ssh.rsyncHelper (Just meterupdate)
=<< Ssh.rsyncParamsRemote direct r Upload key object file
| otherwise = error "copying to non-ssh repo not supported"
where
@ -563,10 +565,11 @@ copyToRemote' r key file p
ensureInitialized
copier <- mkCopier hardlink params
let verify = Annex.Content.RemoteVerify r
runTransfer (Transfer Download u key) file noRetry noObserver $ const $
Annex.Content.saveState True `after`
runTransfer (Transfer Download u key) file noRetry noObserver $ \p ->
let p' = combineMeterUpdate meterupdate p
in Annex.Content.saveState True `after`
Annex.Content.getViaTmp verify key
(\dest -> copier object dest p (liftIO checksuccessio))
(\dest -> copier object dest p' (liftIO checksuccessio))
)
fsckOnRemote :: Git.Repo -> [CommandParam] -> Annex (IO Bool)