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

19
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"] ]; *)
[ H.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
H.iframe ~a:H.[ H.iframe ~a:H.[
a_src src; a_src src;
a_title "Opam dependencies"; a_title "Opam dependencies";
a_style viz_style_deps a_style viz_style_deps
] [] ] []
]]; ]
if not @@ contains_debug_bin artifacts then [] else [ in
H.p [ let viz_treemap_iframe = lazy [
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
H.iframe ~a:H.[ H.iframe ~a:H.[
a_src src; a_src src;
a_title "Binary dissection"; a_title "Binary dissection";
a_style viz_style_treemap 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 let make
~name ~name