GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

vp -showdep: as default label for the first (incl. only) argument, don't use dep#0 but assume it is the head

Browse Source
This commit is contained in:
aarne
2015-11-05 08:30:13 +00:00
parent 72004a98f6
commit 456119e7e2
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/runtime/haskell/PGF/VisualizeTree.hs
View File

@@ -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