diff options
author | 2014-02-19 17:29:04 -0400 | |
---|---|---|
committer | 2014-02-19 17:38:45 -0400 | |
commit | 168da9ec557d6579dc6ebb8acb0bd835414183ef (patch) | |
tree | 7aadc60475dabbe49f07baf3f741647fdf6fc556 /Logs/View.hs | |
parent | 6cc5a966b6cbce635d47685d8497b355d520ebf2 (diff) |
remove special case for tags in view branch names
Just having "_" for tags=* turned out to be too hard to understand.
Note that this invalidaes all current views.
Diffstat (limited to 'Logs/View.hs')
-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 |