diff options
| author | Prasanth Kolachina <prasanthk.ms09@gmail.com> | 2019-01-07 13:24:49 +0100 |
|---|---|---|
| committer | Prasanth Kolachina <prasanthk.ms09@gmail.com> | 2019-01-07 13:24:49 +0100 |
| commit | 0accd976917cfd1be959d47ff5ec74f1ef1f0725 (patch) | |
| tree | 9f93333992d4a457b6584088ac1c7ab7e417c6fb /src | |
| parent | f8bd35543c91d87566a077e8fc31af2cce739845 (diff) | |
add CoNLLU as output format for gf2ud: merging issue (#24)
Diffstat (limited to 'src')
| -rw-r--r-- | src/runtime/haskell/PGF/VisualizeTree.hs | 3 |
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 {" $$ |