diff options
Diffstat (limited to 'Remote/Bup.hs')
| -rw-r--r-- | Remote/Bup.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Bup.hs b/Remote/Bup.hs index 7395b7428..62af704b2 100644 --- a/Remote/Bup.hs +++ b/Remote/Bup.hs @@ -145,7 +145,7 @@ storeEncrypted r buprepo (cipher, enck) k _p = retrieve :: BupRepo -> Key -> AssociatedFile -> FilePath -> MeterUpdate -> Annex Bool retrieve buprepo k _f d _p = do let params = bupParams "join" buprepo [Param $ bupRef k] - liftIO $ catchBoolIO $ withFIle d WriteMode $ + liftIO $ catchBoolIO $ withFile d WriteMode $ pipeBup params Nothing . Just retrieveCheap :: BupRepo -> Key -> FilePath -> Annex Bool |