From eb8714fd779bae934c5edccbe93767f72ae52171 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 16 Jul 2015 08:36:14 +0000 Subject: [PATCH] added a space after the tag in word alignment to work around a graphviz bug shown with Chinese characters --- src/runtime/haskell/PGF/VisualizeTree.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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])