summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Logs/View.hs12
1 files changed, 5 insertions, 7 deletions
diff --git a/Logs/View.hs b/Logs/View.hs
index 7beb605a8..63590d5e9 100644
--- a/Logs/View.hs
+++ b/Logs/View.hs
@@ -73,13 +73,11 @@ branchView view
branchcomp c
| viewVisible c = branchcomp' c
| otherwise = "(" ++ branchcomp' c ++ ")"
- branchcomp' (ViewComponent metafield viewfilter _)
- | metafield == tagMetaField = branchvals viewfilter
- | otherwise = concat
- [ forcelegal (fromMetaField metafield)
- , "="
- , branchvals viewfilter
- ]
+ branchcomp' (ViewComponent metafield viewfilter _) =concat
+ [ forcelegal (fromMetaField metafield)
+ , "="
+ , branchvals viewfilter
+ ]
branchvals (FilterValues set) = intercalate "," $
map (forcelegal . fromMetaValue) $ S.toList set
branchvals (FilterGlob glob) = forcelegal glob