diff options
Diffstat (limited to 'src/runtime')
| -rw-r--r-- | src/runtime/haskell/PGF.hs | 2 | ||||
| -rw-r--r-- | src/runtime/haskell/PGF/VisualizeTree.hs | 3 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/runtime/haskell/PGF.hs b/src/runtime/haskell/PGF.hs index 010c9a7ef..b368d583d 100644 --- a/src/runtime/haskell/PGF.hs +++ b/src/runtime/haskell/PGF.hs @@ -122,6 +122,8 @@ module PGF( graphvizBracketedString, graphvizAlignment, gizaAlignment, + GraphvizOptions(..), + graphvizDefaults, -- * Probabilities Probabilities, 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 |