diff options
| -rw-r--r-- | Logs/View.hs | 12 |
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 |