From db544b1cc9ee72c87dd6bbd094f6985b9e436186 Mon Sep 17 00:00:00 2001 From: hallgren Date: Thu, 22 Nov 2012 15:27:16 +0000 Subject: PGFService.hs: fix type error caused by change to PGF.graphvizParseTree Note that some of the graphviz functions have backwards incompatible changes that might also affect other clients of the PGF run-time library. Also added graphvizDefaults and export it together with GraphvizOptions from the PGF run-time library. --- src/runtime/haskell/PGF/VisualizeTree.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/runtime/haskell/PGF/VisualizeTree.hs') diff --git a/src/runtime/haskell/PGF/VisualizeTree.hs b/src/runtime/haskell/PGF/VisualizeTree.hs index c9a5686fc..0cb323b92 100644 --- a/src/runtime/haskell/PGF/VisualizeTree.hs +++ b/src/runtime/haskell/PGF/VisualizeTree.hs @@ -17,6 +17,7 @@ module PGF.VisualizeTree ( GraphvizOptions(..) + , graphvizDefaults , graphvizAbstractTree , graphvizParseTree , graphvizParseTreeOld @@ -58,6 +59,8 @@ data GraphvizOptions = GraphvizOptions {noLeaves :: Bool, leafEdgeStyle :: String } +graphvizDefaults = GraphvizOptions False False False "" "" "" "" "" "" + -- | Renders abstract syntax tree in Graphviz format graphvizAbstractTree :: PGF -> (Bool,Bool) -> Tree -> String -- cgit v1.2.3