diff options
author | Joey Hess <joeyh@joeyh.name> | 2018-08-31 13:12:58 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2018-08-31 13:27:29 -0400 |
commit | b3d42283ad23cbdbb281433fe42eb6110a0e28a3 (patch) | |
tree | 45ca736248ff5b28c21bbf4b1abbd7e9fc2c3f08 /Types/MetaData.hs | |
parent | 5c99f6247e758d2f57ac81deee2e45917d6ca352 (diff) |
use per-remote metadata storage for S3 version ID
Since the same key can be stored in a versioned S3 bucket multiple times
with different version IDs, this allows tracking them all. Not currently
needed, but if we ever want to drop from a versioned S3 bucket, we'll
need to know them all.
This commit was supported by the NSF-funded DataLad project.
Diffstat (limited to 'Types/MetaData.hs')
-rw-r--r-- | Types/MetaData.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Types/MetaData.hs b/Types/MetaData.hs index f0dd833d6d..d4fee39ca1 100644 --- a/Types/MetaData.hs +++ b/Types/MetaData.hs @@ -37,7 +37,7 @@ module Types.MetaData ( ModMeta(..), modMeta, RemoteMetaData(..), - mkRemoteMetaData, + extractRemoteMetaData, fromRemoteMetaData, prop_metadata_sane, prop_metadata_serialize @@ -291,8 +291,8 @@ data RemoteMetaData = RemoteMetaData UUID MetaData {- Extracts only the fields prefixed with "uuid:", which belong to that - remote. -} -mkRemoteMetaData :: UUID -> MetaData -> RemoteMetaData -mkRemoteMetaData u (MetaData m) = RemoteMetaData u $ MetaData $ +extractRemoteMetaData :: UUID -> MetaData -> RemoteMetaData +extractRemoteMetaData u (MetaData m) = RemoteMetaData u $ MetaData $ M.mapKeys removeprefix $ M.filterWithKey belongsremote m where belongsremote (MetaField f) _v = prefix `isPrefixOf` CI.original f |