diff options
| author | Joey Hess <joey@kitenet.net> | 2014-02-16 17:39:54 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-16 17:39:54 -0400 |
| commit | 9633c67842e914902925b2b54dff4126a85195bb (patch) | |
| tree | 3fe3e7cc1a039b621fc0a1e733cd4d007d8f0270 /Types/MetaData.hs | |
| parent | 2825f2e41d6a22a48a264e1245225958b0453a81 (diff) | |
filter branches (incomplete)
Promosing work toward metadata driven filter branches. A few methods
to construct them are stubbed out; all the data types and pure code
seems good.
This commit was sponsored by Walter Somerville.
Diffstat (limited to 'Types/MetaData.hs')
| -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 151f456c04..d8184a7682 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. -} |