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

improve view branch name when there are a list of values

Browse source
This commit is contained in:
Joey Hess 2014-02-19 16:35:00 -04:00
parent dd7b99c860
commit c85a482136
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Logs/View.hs
View file

@ -80,8 +80,8 @@ branchView view
, "=" , "="
, branchvals viewfilter , branchvals viewfilter
] ]
branchvals (FilterValues set) = forcelegal $ branchvals (FilterValues set) = intercalate "," $
intercalate "," $ map fromMetaValue $ S.toList set map (forcelegal . fromMetaValue) $ S.toList set
branchvals (FilterGlob glob) = forcelegal glob branchvals (FilterGlob glob) = forcelegal glob
forcelegal s forcelegal s
| Git.Ref.legal True s = s | Git.Ref.legal True s = s