From d32d8e09b5763efda69b93139d29147af7a47e71 Mon Sep 17 00:00:00 2001
From: Nathan Ringo <nathan@remexre.com>
Date: Tue, 23 Jan 2024 22:58:08 -0600
Subject: Use rounded rectangle nodes.

---
 discocaml/draw_tree.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'discocaml/draw_tree.ml')

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
-- 
cgit v1.2.3