diff options
| author | aarne <aarne@chalmers.se> | 2015-11-05 08:30:13 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2015-11-05 08:30:13 +0000 |
| commit | e97fa30c9d52f746521eea661eba40242638dcf7 (patch) | |
| tree | f0cc6142dfe569a7628056591d0daaee13bca080 /src/runtime/haskell | |
| parent | eb49b6ab568b6da88a7ddb28029a663ff324dffa (diff) | |
vp -showdep: as default label for the first (incl. only) argument, don't use dep#0 but assume it is the head
Diffstat (limited to 'src/runtime/haskell')
| -rw-r--r-- | src/runtime/haskell/PGF/VisualizeTree.hs | 4 |
1 files 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 |