diff options
Diffstat (limited to 'Types')
-rw-r--r-- | Types/MetaData.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Types/MetaData.hs b/Types/MetaData.hs index 601757315..617c122a6 100644 --- a/Types/MetaData.hs +++ b/Types/MetaData.hs @@ -22,12 +22,14 @@ module Types.MetaData ( toMetaValue, mkMetaValue, unsetMetaValue, + unsetMetaData, fromMetaValue, fromMetaData, newMetaData, updateMetaData, unionMetaData, differenceMetaData, + isSet, currentMetaData, currentMetaDataValues, metaDataValues, @@ -137,6 +139,10 @@ mkMetaValue = MetaValue unsetMetaValue :: MetaValue -> MetaValue unsetMetaValue (MetaValue _ s) = MetaValue (CurrentlySet False) s +{- Marks all MetaValues as no longer currently set. -} +unsetMetaData :: MetaData -> MetaData +unsetMetaData (MetaData m) = MetaData $ M.map (S.map unsetMetaValue) m + fromMetaField :: MetaField -> String fromMetaField (MetaField f) = f |