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

Views: Also rendering dependencies for non-binary packages

Browse source
This commit is contained in:
rand00 2022-01-24 14:38:39 +01:00 committed by Reynir Björnsson
parent 64cf4fc350
commit 48ba9b7bfe
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lib/views.ml
View file

@ -356,17 +356,20 @@ let job_build
latest next previous latest next previous
= =
let delta = Ptime.diff finish start in let delta = Ptime.diff finish start in
let analysis_section = if not @@ contains_debug_bin artifacts then [] else [ let analysis_section = [
h3 [txt "Analysis"]; [ h3 [txt "Analysis"] ];
if not @@ contains_debug_bin artifacts then [] else [
p [ p [
let src = Fmt.str "/job/%s/build/%a/viztreemap" name Uuidm.pp uuid in let src = Fmt.str "/job/%s/build/%a/viztreemap" name Uuidm.pp uuid in
let style = "width: 50em; height: 54.0em" in (*treemap tries to be square*) let style = "width: 50em; height: 54.0em" in (*treemap tries to be square*)
iframe ~a:[ a_src src; a_title "Binary dissection"; a_style style ] [] ]; iframe ~a:[ a_src src; a_title "Binary dissection"; a_style style ] []
p [ ]
];
[ p [
let src = Fmt.str "/job/%s/build/%a/vizdependencies" name Uuidm.pp uuid in let src = Fmt.str "/job/%s/build/%a/vizdependencies" name Uuidm.pp uuid in
let style = "width: 50em; height: 54.0em" in let style = "width: 50em; height: 54.0em" in
iframe ~a:[ a_src src; a_title "Opam dependencies"; a_style style ] [] ]; iframe ~a:[ a_src src; a_title "Opam dependencies"; a_style style ] [] ]];
] ] |> List.flatten
in in
let body = let body =
h1 [txtf "Job %s" name] :: h1 [txtf "Job %s" name] ::