From 083ab36d08569dd64a7ed94cdfd49753964c7bdd Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 16 Feb 2014 17:39:54 -0400
Subject: 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.
---
 Types/MetaData.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Types/MetaData.hs')

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. -}
-- 
cgit v1.2.3