fix combining of FIlterValues

This commit is contained in:
Joey Hess 2014-03-02 15:44:14 -04:00
parent 7d9486a709
commit 308d4b67f3

View file

@ -155,7 +155,7 @@ combineViewFilter old@(ExcludeValues olds) (ExcludeValues news)
| combined == old = (combined, Unchanged)
| otherwise = (combined, Narrowing)
where
combined = FilterValues (S.union olds news)
combined = ExcludeValues (S.union olds news)
combineViewFilter (FilterValues _) newglob@(FilterGlob _) =
(newglob, Widening)
combineViewFilter (FilterGlob oldglob) new@(FilterValues s)