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