diff options
Diffstat (limited to 'Types')
-rw-r--r-- | Types/MetaData.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Types/MetaData.hs b/Types/MetaData.hs index 151f456c0..d8184a768 100644 --- a/Types/MetaData.hs +++ b/Types/MetaData.hs @@ -16,6 +16,8 @@ module Types.MetaData ( deserialize, MetaSerializable, toMetaField, + mkMetaField, + tagMetaField, fromMetaField, toMetaValue, mkMetaValue, @@ -225,6 +227,9 @@ mkMetaField f = maybe (Left $ badField f) Right (toMetaField f) badField :: String -> String badField f = "Illegal metadata field name, \"" ++ f ++ "\"" +tagMetaField :: MetaField +tagMetaField = MetaField "tag" + {- Avoid putting too many fields in the map; extremely large maps make - the seriaization test slow due to the sheer amount of data. - It's unlikely that more than 100 fields of metadata will be used. -} |