diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-04-14 16:35:10 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-04-14 16:35:10 -0400 |
commit | efec2521cc14b3dec895066c9e7c16e740ab12ec (patch) | |
tree | b60412fe4c371871f334e33bbb5e3f52b1ba0945 /Remote/Rsync.hs | |
parent | dc367b090adec9f2fc5f37cba5e9b5d5f2decbce (diff) |
add filename to progress bar, and display ok/failed at end
This needed plumbing an AssociatedFile through retrieveKeyFileCheap.
Diffstat (limited to 'Remote/Rsync.hs')
-rw-r--r-- | Remote/Rsync.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Rsync.hs b/Remote/Rsync.hs index a882e081d..2c8b17884 100644 --- a/Remote/Rsync.hs +++ b/Remote/Rsync.hs @@ -191,8 +191,8 @@ retrieve o f k p = unlessM (rsyncRetrieve o k f (Just p)) $ error "rsync failed" -retrieveCheap :: RsyncOpts -> Key -> FilePath -> Annex Bool -retrieveCheap o k f = ifM (preseedTmp k f) ( rsyncRetrieve o k f Nothing , return False ) +retrieveCheap :: RsyncOpts -> Key -> AssociatedFile -> FilePath -> Annex Bool +retrieveCheap o k _af f = ifM (preseedTmp k f) ( rsyncRetrieve o k f Nothing , return False ) remove :: RsyncOpts -> Remover remove o k = do |