diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-09-08 14:24:05 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-09-08 14:24:05 -0400 |
| commit | 23f55c0efdd58f8024d9b0c9e4b02db7b8d27b61 (patch) | |
| tree | c6e008833ac2526f9681de86e244e23584639613 /Remote/Directory.hs | |
| parent | 1afbbef018b6a8e5d382c44c5e5366cf6ec65950 (diff) | |
External special remote protocol extended to support export.
Also updated example.sh to support export.
This commit was supported by the NSF-funded DataLad project.
Diffstat (limited to 'Remote/Directory.hs')
| -rw-r--r-- | Remote/Directory.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Directory.hs b/Remote/Directory.hs index 22413b7e9..c17ed80a5 100644 --- a/Remote/Directory.hs +++ b/Remote/Directory.hs @@ -240,8 +240,8 @@ storeExportDirectory d src _k loc p = liftIO $ catchBoolIO $ do where dest = exportPath d loc -retrieveExportDirectory :: FilePath -> Key -> ExportLocation -> FilePath -> MeterUpdate -> Annex (Bool, Verification) -retrieveExportDirectory d _k loc dest p = unVerified $ liftIO $ catchBoolIO $ do +retrieveExportDirectory :: FilePath -> Key -> ExportLocation -> FilePath -> MeterUpdate -> Annex Bool +retrieveExportDirectory d _k loc dest p = liftIO $ catchBoolIO $ do withMeteredFile src p (L.writeFile dest) return True where |