summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPrasanth Kolachina <pkolachi@users.noreply.github.com>2019-01-07 13:26:44 +0100
committerGitHub <noreply@github.com>2019-01-07 13:26:44 +0100
commita131b244df0fd43b46a34fde0ed0135ae64d434e (patch)
tree9f93333992d4a457b6584088ac1c7ab7e417c6fb
parentf8bd35543c91d87566a077e8fc31af2cce739845 (diff)
parent0accd976917cfd1be959d47ff5ec74f1ef1f0725 (diff)
Merge pull request #25 from pkolachi/master
add CoNLLU as output format for gf2ud: merging issue (#24)
-rw-r--r--src/runtime/haskell/PGF/VisualizeTree.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/VisualizeTree.hs b/src/runtime/haskell/PGF/VisualizeTree.hs
index e39fab7db..fa6f7126e 100644
--- a/src/runtime/haskell/PGF/VisualizeTree.hs
+++ b/src/runtime/haskell/PGF/VisualizeTree.hs
@@ -132,7 +132,8 @@ graphvizDependencyTree format debug mlab mclab pgf lang t =
case format of
"latex" -> render . ppLaTeX $ conll2latex' conll
"svg" -> render . ppSVG . toSVG $ conll2latex' conll
- "conll" -> printCoNLL ([["# text = " ++ linearize pgf lang t], ["# tree = " ++ showExpr [] t]] ++ conll)
+ "conll" -> printCoNLL conll
+ "conllu" -> 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 {" $$