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