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

vd command now reads local concrete configurations to deal with syncat words; TODO: dissolve clustered multiwords bound with +

Browse Source
This commit is contained in:
aarne
2017-04-06 11:55:21 +00:00
parent 20a038719f
commit ee2f3d085e
4 changed files with 81 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/server/PGFService.hs
View File

@@ -794,7 +794,7 @@ parseTree pgf lang opts tree = PGF.graphvizParseTree pgf lang opts tree
doDepTree lc path pgf fmt lang tree =
do (_,lbls) <- liftIO $ getLabels lc path pgf
let vis = PGF.graphvizDependencyTree fmt False (Just lbls) () pgf lang tree
let vis = PGF.graphvizDependencyTree fmt False (Just lbls) Nothing pgf lang tree ---- TODO: CncLabels
if fmt `elem` ["png","gif","gv"]
then outputGraphviz vis
else if fmt=="svg"