X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=exercises%2Fch01%2Ftree.ml;fp=exercises%2Fch01%2Ftree.ml;h=195a70cc5556b017cbc72d2cc962f73cb75b2434;hb=06d3ef4a3b9b885a6e402327188d8abb152055f2;hp=f150caeb752f7c45524c5258f80ceea1c6ea7aed;hpb=b743073dd14888990ca5a144e3b745ff9e4f4d84;p=tiger.ml.git

diff --git a/exercises/ch01/tree.ml b/exercises/ch01/tree.ml
index f150cae..195a70c 100644
--- a/exercises/ch01/tree.ml
+++ b/exercises/ch01/tree.ml
@@ -60,7 +60,7 @@ module BinaryTree : TREE = struct
         ~init:("", "\n")
         ~f:(fun (edges, sep) (k1, k2) ->
           let k1, k2 = k_to_string k1, k_to_string k2 in
-          (Printf.sprintf "%s%s%S -> %S;\n" edges sep k1 k2, "")
+          (Printf.sprintf "%s%s    %S -> %S;\n" edges sep k1 k2, "")
       )
     in
     "digraph G {" ^ edges ^ "}"