From ee2f3d085ea1e3ca943f78e71be518fd2f0b16cc Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 6 Apr 2017 11:55:21 +0000 Subject: vd command now reads local concrete configurations to deal with syncat words; TODO: dissolve clustered multiwords bound with + --- src/server/PGFService.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/server') diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index d84f2b3c2..f12ad75fb 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -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" -- cgit v1.2.3