Garmelon/rextra
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Explicitly order names in set labels

Browse source
This commit is contained in:
Joscha 2019-10-30 21:31:25 +00:00
parent ed00c85fa7
commit 19f37ab578
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Rextra/Visualize.hs
View file

@ -35,7 +35,7 @@ instance AsLabel [Char] where
instance AsLabel a => AsLabel (Set.Set a) where instance AsLabel a => AsLabel (Set.Set a) where
asLabel s = asLabel s =
let sublabels = map asLabel $ Set.toList s let sublabels = map asLabel $ Set.elems s
in "{" ++ intercalate "," sublabels ++ "}" in "{" ++ intercalate "," sublabels ++ "}"
{- {-