robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Builder_web.treemap_visualization_cmd: More informative param-name

Browse source
This commit is contained in:
rand00 2022-01-26 18:03:48 +01:00 committed by Reynir Björnsson
parent 1bba2d7855
commit 86b5bf870d
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/builder_web.ml
View file

@ -195,8 +195,8 @@ let add_routes datadir =
) )
in in
let treemap_visualization_cmd ~elf_path ~elf_size = let treemap_visualization_cmd ~debug_elf_path ~elf_size =
[ "treemap"; elf_path; Int.to_string elf_size ] [ "treemap"; debug_elf_path; Int.to_string elf_size ]
|> visualization_cmd |> visualization_cmd
in in
@ -224,11 +224,11 @@ let add_routes datadir =
>>= fun (debug_binary, main_binary) -> >>= fun (debug_binary, main_binary) ->
let elf_size = main_binary.Builder_db.size in let elf_size = main_binary.Builder_db.size in
let datadir = Dream.global datadir_global req in let datadir = Dream.global datadir_global req in
let elf_path = Fpath.( let debug_elf_path = Fpath.(
datadir // debug_binary.Builder_db.localpath datadir // debug_binary.Builder_db.localpath
|> to_string |> to_string
) in ) 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_svg svg) *)
Lwt_result.ok (Dream.html svg_html) Lwt_result.ok (Dream.html svg_html)
in in