Views.Job_build: Avoiding too much indentation with current ocp-indent settings via less nesting

This commit is contained in:
rand00 2022-02-03 20:11:36 +01:00
parent cb11326cd4
commit 7633b63f21

View file

@ -539,26 +539,29 @@ module Job_build = struct
"
let make_viz_section ~name ~artifacts ~uuid =
[
(* [ H.h3 [txt "Analysis"] ]; *)
[ H.p [
let viz_deps_iframe = [
let src = Fmt.str "/job/%s/build/%a/vizdependencies" name Uuidm.pp uuid in
H.iframe ~a:H.[
a_src src;
a_title "Opam dependencies";
a_style viz_style_deps
] []
]];
if not @@ contains_debug_bin artifacts then [] else [
H.p [
]
in
let viz_treemap_iframe = lazy [
let src = Fmt.str "/job/%s/build/%a/viztreemap" name Uuidm.pp uuid in
H.iframe ~a:H.[
a_src src;
a_title "Binary dissection";
a_style viz_style_treemap
] []
]];
] |> List.flatten
]
in
List.flatten [
[ H.p viz_deps_iframe];
if not @@ contains_debug_bin artifacts then [] else [
H.p @@ Lazy.force viz_treemap_iframe ];
]
let make
~name