mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove special case for tags in view branch names

Browse source 
Just having "_" for tags=* turned out to be too hard to understand.

Note that this invalidaes all current views.
This commit is contained in:
Joey Hess 2014-02-19 17:29:04 -04:00
parent c85a482136
commit cfed7f6a5d
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Logs/View.hs
View file

@ -73,13 +73,11 @@ branchView view
branchcomp c branchcomp c
| viewVisible c = branchcomp' c | viewVisible c = branchcomp' c
| otherwise = "(" ++ branchcomp' c ++ ")" | otherwise = "(" ++ branchcomp' c ++ ")"
branchcomp' (ViewComponent metafield viewfilter _) branchcomp' (ViewComponent metafield viewfilter _) =concat
| metafield == tagMetaField = branchvals viewfilter [ forcelegal (fromMetaField metafield)
| otherwise = concat , "="
[ forcelegal (fromMetaField metafield) , branchvals viewfilter
, "=" ]
, branchvals viewfilter
]
branchvals (FilterValues set) = intercalate "," $ branchvals (FilterValues set) = intercalate "," $
map (forcelegal . fromMetaValue) $ S.toList set map (forcelegal . fromMetaValue) $ S.toList set
branchvals (FilterGlob glob) = forcelegal glob branchvals (FilterGlob glob) = forcelegal glob