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/Web.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/Web.hs')
| -rw-r--r-- | Remote/Web.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Remote/Web.hs b/Remote/Web.hs index 4d55389ec..45e8d1c22 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -10,6 +10,7 @@ module Remote.Web (remote, getWebUrls) where import Annex.Common import Types.Remote import Remote.Helper.Messages +import Remote.Helper.Export import qualified Git import qualified Git.Construct import Annex.Content @@ -50,11 +51,7 @@ gen r _ c gc = , lockContent = Nothing , checkPresent = checkKey , checkPresentCheap = False - , storeExport = Nothing - , retrieveExport = Nothing - , removeExport = Nothing - , checkPresentExport = Nothing - , renameExport = Nothing + , exportActions = exportUnsupported , whereisKey = Nothing , remoteFsck = Nothing , repairRepo = Nothing |