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/Web.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/Web.hs')
-rw-r--r-- | Remote/Web.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs index a4a484ca3..102972b02 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -90,8 +90,8 @@ downloadKey key _file dest _p = get =<< getWebUrls key #endif _ -> downloadUrl [u'] dest -downloadKeyCheap :: Key -> FilePath -> Annex Bool -downloadKeyCheap _ _ = return False +downloadKeyCheap :: Key -> AssociatedFile -> FilePath -> Annex Bool +downloadKeyCheap _ _ _ = return False uploadKey :: Key -> AssociatedFile -> MeterUpdate -> Annex Bool uploadKey _ _ _ = do |