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

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

Browse source
This commit is contained in:
rand00 2022-02-03 20:11:36 +01:00
parent cb11326cd4
commit 7633b63f21
1 changed files with 22 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
lib/views.ml
View file

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