improve view branch name when there are a list of values

This commit is contained in:
Joey Hess 2014-02-19 16:35:00 -04:00
parent dd7b99c860
commit c85a482136

View file

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