From 6a70220deeb1951570564355decedeccb0a35949 Mon Sep 17 00:00:00 2001
From: rand00 <oth.rand@gmail.com>
Date: Wed, 15 Dec 2021 21:32:41 +0100
Subject: [PATCH] Removed debug-printing + Adjusted size of treemap iframe

---
 lib/builder_web.ml | 4 ----
 lib/views.ml       | 2 +-
 2 files changed, 1 insertion(+), 5 deletions(-)

diff --git a/lib/builder_web.ml b/lib/builder_web.ml
index b193380..b688f88 100644
--- a/lib/builder_web.ml
+++ b/lib/builder_web.ml
@@ -184,7 +184,6 @@ let add_routes datadir =
   in
 
   let job_build_treemap req =
-    Log.info (fun m -> m ">>>>>>>>>> entering job_build_treemap");
     let _job_name = Dream.param "job" req
     and build = Dream.param "build" req in
     get_uuid build >>= fun uuid ->
@@ -201,7 +200,6 @@ let add_routes datadir =
     |> if_error "Error getting job build"
       ~log:(fun e -> Log.warn (fun m -> m "Error getting job build: %a" pp_error e))
     >>= fun (debug_binary, main_binary) ->
-    Log.info (fun m -> m ">>>>>>>>>> binary + debug-binary bound");
     let binary_size = main_binary.Builder_db.size in
     let datadir = Dream.global datadir_global req in
     let path = Fpath.(datadir // debug_binary.Builder_db.localpath) in
@@ -213,7 +211,6 @@ let add_routes datadir =
       ~log:(fun _ -> Log.warn (fun m ->
           m "Error reading ELF file %a" Fpath.pp path))
     >>= fun infos ->
-    Log.info (fun m -> m ">>>>>>>>>> infos bound");
     let svg_html =
       infos
       |> Info.import
@@ -227,7 +224,6 @@ let add_routes datadir =
        * |> Fmt.to_to_string (Tyxml.Svg.pp ()) *)
     in
     (* Lwt_result.ok (dream_svg svg) *)
-    Log.info (fun m -> m ">>>>>>>>>> returning svg_html");
     Lwt_result.ok (Dream.html svg_html)
   in
 
diff --git a/lib/views.ml b/lib/views.ml
index 7568ea7..13e515a 100644
--- a/lib/views.ml
+++ b/lib/views.ml
@@ -359,7 +359,7 @@ let job_build
       h3 [txt "Analysis"];
       p [
         let src = Fmt.str "/job/%s/build/%a/treemap" name Uuidm.pp uuid in
-        let style = "width: 50em; height: 50.5em" in (*treemap tries to be square*)
+        let style = "width: 50em; height: 53.0em" in (*treemap tries to be square*)
         iframe ~a:[ a_src src; a_title "Binary dissection"; a_style style ] [] ];
       h3 [txt "Build info"];
       ul [