diff options
Diffstat (limited to 'Types/MetaData.hs')
| -rw-r--r-- | Types/MetaData.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Types/MetaData.hs b/Types/MetaData.hs index c37b31c51..70b5bd840 100644 --- a/Types/MetaData.hs +++ b/Types/MetaData.hs @@ -28,6 +28,7 @@ module Types.MetaData ( emptyMetaData, updateMetaData, unionMetaData, + combineMetaData, differenceMetaData, isSet, currentMetaData, @@ -188,6 +189,9 @@ unionMetaData :: MetaData -> MetaData -> MetaData unionMetaData (MetaData old) (MetaData new) = MetaData $ M.unionWith S.union new old +combineMetaData :: [MetaData] -> MetaData +combineMetaData = foldl' unionMetaData emptyMetaData + differenceMetaData :: MetaData -> MetaData -> MetaData differenceMetaData (MetaData m) (MetaData excludem) = MetaData $ M.differenceWith diff m excludem |