From 86b5bf870dfc5b304f6a90dc0953858a7dd9c139 Mon Sep 17 00:00:00 2001 From: rand00 Date: Wed, 26 Jan 2022 18:03:48 +0100 Subject: [PATCH] Builder_web.treemap_visualization_cmd: More informative param-name --- lib/builder_web.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/builder_web.ml b/lib/builder_web.ml index 2aa7418..bd7c975 100644 --- a/lib/builder_web.ml +++ b/lib/builder_web.ml @@ -195,8 +195,8 @@ let add_routes datadir = ) in - let treemap_visualization_cmd ~elf_path ~elf_size = - [ "treemap"; elf_path; Int.to_string elf_size ] + let treemap_visualization_cmd ~debug_elf_path ~elf_size = + [ "treemap"; debug_elf_path; Int.to_string elf_size ] |> visualization_cmd in @@ -224,11 +224,11 @@ let add_routes datadir = >>= fun (debug_binary, main_binary) -> let elf_size = main_binary.Builder_db.size in let datadir = Dream.global datadir_global req in - let elf_path = Fpath.( + let debug_elf_path = Fpath.( datadir // debug_binary.Builder_db.localpath |> to_string ) in - treemap_visualization_cmd ~elf_path ~elf_size >>= fun svg_html -> + treemap_visualization_cmd ~debug_elf_path ~elf_size >>= fun svg_html -> (* Lwt_result.ok (dream_svg svg) *) Lwt_result.ok (Dream.html svg_html) in