mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

vadd: Allow listing multiple desired values for a field.

Browse source
This commit is contained in:
Joey Hess 2014-03-02 15:36:45 -04:00
parent c2e8c21ca6
commit 7d9486a709
5 changed files with 36 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Types/View.hs
View file

@ -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