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
=
let delta = Ptime.diff finish start in
let analysis_section = if not @@ contains_debug_bin artifacts then [] else [
h3 [txt "Analysis"];
let analysis_section = [
[ h3 [txt "Analysis"] ];
if not @@ contains_debug_bin artifacts then [] else [
p [
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*)
iframe ~a:[ a_src src; a_title "Binary dissection"; a_style style ] [] ];
p [
iframe ~a:[ a_src src; a_title "Binary dissection"; a_style style ] []
]
];
[ p [
let src = Fmt.str "/job/%s/build/%a/vizdependencies" name Uuidm.pp uuid 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
let body =
h1 [txtf "Job %s" name] ::