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/Bup.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/Bup.hs')
| -rw-r--r-- | Remote/Bup.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Bup.hs b/Remote/Bup.hs index 42f17e921..b3152afcf 100644 --- a/Remote/Bup.hs +++ b/Remote/Bup.hs @@ -148,8 +148,8 @@ retrieve buprepo = byteRetriever $ \k sink -> do liftIO (hClose h >> forceSuccessProcess p pid) `after` (sink =<< liftIO (L.hGetContents h)) -retrieveCheap :: BupRepo -> Key -> FilePath -> Annex Bool -retrieveCheap _ _ _ = return False +retrieveCheap :: BupRepo -> Key -> AssociatedFile -> FilePath -> Annex Bool +retrieveCheap _ _ _ _ = return False {- Cannot revert having stored a key in bup, but at least the data for the - key will be used for deltaing data of other keys stored later. |