diff options
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 |