diff options
| -rw-r--r-- | discocaml/draw_tree.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/discocaml/draw_tree.ml b/discocaml/draw_tree.ml index 005633f..16719df 100644 --- a/discocaml/draw_tree.ml +++ b/discocaml/draw_tree.ml @@ -87,6 +87,7 @@ let draw_tree (ast : expr ast) : string = let buf = Buffer.create 16 and nodes = ref IntSet.empty in let fmt = Format.formatter_of_buffer buf in Format.fprintf fmt "digraph {\n"; + Format.fprintf fmt " node [shape=\"box\", style=\"rounded\"];\n"; add_expr_edges ast fmt nodes ast.root; Format.fprintf fmt "\n"; IntSet.iter |