diff options
| author | Prasanth Kolachina <pkolachi@users.noreply.github.com> | 2019-01-07 13:18:45 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-01-07 13:18:45 +0100 |
| commit | f8bd35543c91d87566a077e8fc31af2cce739845 (patch) | |
| tree | a3f491b46f01b74465e137f899463a5f0d09cd62 /src | |
| parent | a7b10ea936077bd26a263cb0c199f8cf20ba7cb2 (diff) | |
| parent | f7c2fb8a7d4f37e3122bc8fb8970f848b3ab3c35 (diff) | |
Merge pull request #24 from odanoburu/gf2ud-comments
(gf2ud) add comments to CoNLL-U output
Diffstat (limited to 'src')
| -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 bbe4887ec..e39fab7db 100644 --- a/src/runtime/haskell/PGF/VisualizeTree.hs +++ b/src/runtime/haskell/PGF/VisualizeTree.hs @@ -132,7 +132,7 @@ graphvizDependencyTree format debug mlab mclab pgf lang t = case format of "latex" -> render . ppLaTeX $ conll2latex' conll "svg" -> render . ppSVG . toSVG $ conll2latex' conll - "conll" -> printCoNLL conll + "conll" -> printCoNLL ([["# text = " ++ linearize pgf lang t], ["# tree = " ++ showExpr [] t]] ++ conll) "malt_tab" -> render $ vcat (map (hcat . intersperse (char '\t') . (\ws -> [ws !! 0,ws !! 1,ws !! 3,ws !! 6,ws !! 7])) wnodes) "malt_input" -> render $ vcat (map (hcat . intersperse (char '\t') . take 6) wnodes) _ -> render $ text "digraph {" $$ |