diff options
author | 2014-03-02 15:36:45 -0400 | |
---|---|---|
committer | 2014-03-02 15:36:45 -0400 | |
commit | 4391e9bde8803a014ef723339dde5fdb386f4ba1 (patch) | |
tree | f27e5dad87edd48c938a9b2bf7b1a74bfd05b2e0 /Types | |
parent | d6744f85d3ad9b924eeee47148d34bec6992b5eb (diff) |
vadd: Allow listing multiple desired values for a field.
Diffstat (limited to 'Types')
-rw-r--r-- | Types/View.hs | 3 |
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 |