diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-09-01 13:02:07 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-09-01 13:05:09 -0400 |
commit | 2aea8192e1769c4acfbc130ba4d788abd5ee4539 (patch) | |
tree | 9713e2dfbca20263acebe53028ae949bb467b78b /Remote/Glacier.hs | |
parent | 441a5dfc2fd112fd165b95fb1106f15a1255e72a (diff) |
refactor ExportActions
This will allow disabling exports for remotes that are not configured to
allow them. Also, exportSupported will be useful for the external
special remote to probe.
This commit was supported by the NSF-funded DataLad project
Diffstat (limited to 'Remote/Glacier.hs')
-rw-r--r-- | Remote/Glacier.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs index be65cecb7..b21167aaf 100644 --- a/Remote/Glacier.hs +++ b/Remote/Glacier.hs @@ -18,6 +18,7 @@ import Config import Config.Cost import Remote.Helper.Special import Remote.Helper.Messages +import Remote.Helper.Export import qualified Remote.Helper.AWS as AWS import Creds import Utility.Metered @@ -57,11 +58,7 @@ gen r u c gc = new <$> remoteCost gc veryExpensiveRemoteCost , lockContent = Nothing , checkPresent = checkPresentDummy , checkPresentCheap = False - , storeExport = Nothing - , retrieveExport = Nothing - , removeExport = Nothing - , checkPresentExport = Nothing - , renameExport = Nothing + , exportActions = exportUnsupported , whereisKey = Nothing , remoteFsck = Nothing , repairRepo = Nothing |