From 456119e7e25f4265e451cea195751f80eb832a68 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 5 Nov 2015 08:30:13 +0000 Subject: [PATCH] vp -showdep: as default label for the first (incl. only) argument, don't use dep#0 but assume it is the head --- src/runtime/haskell/PGF/VisualizeTree.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/haskell/PGF/VisualizeTree.hs b/src/runtime/haskell/PGF/VisualizeTree.hs index 01c21281c..691bb02ea 100644 --- a/src/runtime/haskell/PGF/VisualizeTree.hs +++ b/src/runtime/haskell/PGF/VisualizeTree.hs @@ -300,8 +300,8 @@ graphvizBracketedString opts mbl tree bss = render graphviz_code "head" -> "" l -> l _ -> argLabel fun arg - argLabel fun arg = "dep#" ++ show arg --showCId fun ++ "#" ++ show arg - + argLabel fun arg = if arg==0 then "" else "dep#" ++ show arg --showCId fun ++ "#" ++ show arg + -- assuming the arg is head, if no configuration is given; always true for 1-arg funs mkLeafNode cat word | noDep opts = word --- || not (noCat opts) -- show POS only if intermediate nodes hidden | otherwise = posCat cat ++ "\n" ++ word -- show POS in dependency tree