summaryrefslogtreecommitdiff
path: root/Types
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-03-02 15:36:45 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-03-02 15:36:45 -0400
commit4391e9bde8803a014ef723339dde5fdb386f4ba1 (patch)
treef27e5dad87edd48c938a9b2bf7b1a74bfd05b2e0 /Types
parentd6744f85d3ad9b924eeee47148d34bec6992b5eb (diff)
vadd: Allow listing multiple desired values for a field.
Diffstat (limited to 'Types')
-rw-r--r--Types/View.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/Types/View.hs b/Types/View.hs
index fd73d92e4..43afdb8c8 100644
--- a/Types/View.hs
+++ b/Types/View.hs
@@ -50,6 +50,9 @@ instance Arbitrary ViewFilter where
, return (ExcludeValues s)
)
+mkViewComponent :: MetaField -> ViewFilter -> ViewComponent
+mkViewComponent f vf = ViewComponent f vf (multiValue vf)
+
{- Can a ViewFilter match multiple different MetaValues? -}
multiValue :: ViewFilter -> Bool
multiValue (FilterValues s) = S.size s > 1