msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

added a space after the tag in word alignment to work around a graphviz bug shown with Chinese characters

Browse Source
This commit is contained in:
aarne
2015-07-16 08:36:14 +00:00
parent f994d556e0
commit 3ad6e0c6bc
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/VisualizeTree.hs
View File

@@ -396,7 +396,7 @@ graphvizAlignment pgf langs exp =
renderList ii [] _ = empty
renderList ii [l] [] = struct ii <> text "[label = \"" <> fields l <> text "\"] ;"
fields cs = hsep (intersperse (char '|') [tbrackets (tag id) <> text w | (id,ws) <- cs, w <- ws])
fields cs = hsep (intersperse (char '|') [tbrackets (tag id) <> text (' ':w) | (id,ws) <- cs, w <- ws])