From f3178cace0e9b626cae1e819cf67b53c1e7e6658 Mon Sep 17 00:00:00 2001 From: rand00 Date: Mon, 24 Jan 2022 13:32:08 +0100 Subject: [PATCH] bin/Builder-viz: Printing html + Syntax --- bin/visualizations/builder_viz.ml | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/bin/visualizations/builder_viz.ml b/bin/visualizations/builder_viz.ml index 5a98d75..53b9747 100644 --- a/bin/visualizations/builder_viz.ml +++ b/bin/visualizations/builder_viz.ml @@ -46,7 +46,7 @@ let print_treemap_html elf_path elf_size = info |> Treemap.of_tree |> Treemap.to_html_with_scale ~binary_size:elf_size ~scale_chunks - |> Fmt.to_to_string (Tyxml.Html.pp ()) + |> Tyxml.Html.pp () Format.std_formatter (* |> Treemap.svg * |> Fmt.to_to_string (Tyxml.Svg.pp ()) *) @@ -106,5 +106,8 @@ module Cmd = struct end let () = - Cmdliner.Term.eval_choice Cmd.default [ Cmd.help; Cmd.treemap ] + Cmdliner.Term.eval_choice Cmd.default [ + Cmd.help; + Cmd.treemap + ] |> Cmdliner.Term.exit