aboutsummaryrefslogtreecommitdiff
path: root/Annex/View.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-03-02 15:44:14 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-03-02 15:44:14 -0400
commita9509940fa73d09fcb60aef90aa7ee99d7586fd1 (patch)
treee782988312e7835c18fa0225c1f3e9e97e37ed36 /Annex/View.hs
parent4391e9bde8803a014ef723339dde5fdb386f4ba1 (diff)
fix combining of FIlterValues
Diffstat (limited to 'Annex/View.hs')
-rw-r--r--Annex/View.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/View.hs b/Annex/View.hs
index c572c6de4..7c187befd 100644
--- a/Annex/View.hs
+++ b/Annex/View.hs
@@ -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)