diff options
| author | aarne <aarne@chalmers.se> | 2015-07-16 08:36:14 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2015-07-16 08:36:14 +0000 |
| commit | 3ad6e0c6bc5ce35bd399ed3f885aacc90f3acd25 (patch) | |
| tree | b62278c3b0e8f6d6893d6bf44277edf4ec39735f /src/runtime/haskell/PGF/VisualizeTree.hs | |
| parent | f994d556e0f723a844ad07db1dd763220c182fcd (diff) | |
added a space after the tag in word alignment to work around a graphviz bug shown with Chinese characters
Diffstat (limited to 'src/runtime/haskell/PGF/VisualizeTree.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/VisualizeTree.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/VisualizeTree.hs b/src/runtime/haskell/PGF/VisualizeTree.hs index 855e40d75..cb6affe41 100644 --- a/src/runtime/haskell/PGF/VisualizeTree.hs +++ b/src/runtime/haskell/PGF/VisualizeTree.hs @@ -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]) |