diff --git a/lib/inspect.ml b/lib/inspect.ml index 07cce1b7..5e7b6880 100644 --- a/lib/inspect.ml +++ b/lib/inspect.ml @@ -295,7 +295,7 @@ let rec walk c b depth addr (ty : Types.t) = let shown = min n Render.max_span and sz = size c t in put b "["; for i = 0 to shown - 1 do - put b " "; + if i > 0 then put b " "; walk c b (depth + 1) (addr + (i * sz)) t done; if n > shown then put b " ..."; @@ -307,7 +307,7 @@ let rec walk c b depth addr (ty : Types.t) = let sz = size c t in put b "["; for i = 0 to n - 1 do - put b " "; + if i > 0 then put b " "; walk c b (depth + 1) (p + (i * sz)) t done; put b "]"