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

update styles on the various pages

Browse source
This commit is contained in:
Pizie Dust 2025-02-10 15:22:26 +01:00
parent f728e35944
commit 9123e0d905
1 changed files with 254 additions and 150 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

404
lib/views.ml
View file

@ -144,7 +144,7 @@ let layout
] ]
] ]
]); ]);
H.main body H.main body
]; ];
]) ])
@ -182,15 +182,15 @@ let artifact
~build:build.Builder_db.Build.uuid ~build:build.Builder_db.Build.uuid
~artifact:(`File filepath) () ~artifact:(`File filepath) ()
in in
[ H.(div [
H.a ~a:H.[a_href artifact_link] [ a ~a:[a_href artifact_link; a_class ["text-primary-500 underline"]] [
if basename then H.txt (Fpath.basename filepath) (if basename then txt ("Download " ^ Fpath.basename filepath)
else txtf "%a" Fpath.pp filepath else txtf "Download %a" Fpath.pp filepath);
txtf " (%a)" Fmt.byte_size size;
]; ];
H.txt " "; br ();
H.code [txtf "SHA256:%s" (Ohex.encode sha256)]; code [txtf "SHA256:%s" (Ohex.encode sha256)];
txtf " (%a)" Fmt.byte_size size; ])
]
let page_not_found ~target ~referer = let page_not_found ~target ~referer =
[ [
@ -222,7 +222,7 @@ let viz_not_found =
[ txtf "%s" title ]; [ txtf "%s" title ];
] ]
in in
let static_css = static_css :: [ Tyxml.Html.Unsafe.data "\ let static_css = Styles.static_css :: [ Tyxml.Html.Unsafe.data "\
body { background: rgb(191,191,191); }\ body { background: rgb(191,191,191); }\
"] "]
in in
@ -308,76 +308,96 @@ module Builds = struct
] ]
) )
let make_platform_builds ~job_name (platform, latest_build, latest_artifact) = let make_platform_builds ~job_name (platform, latest_build, latest_artifact) =
[ H.([
check_icon latest_build.Builder_db.Build.result; div ~a:[a_class ["grid grid-cols-3 space-y-2 p-2 rounded-lg"]]
H.txt " "; [
H.a ~a:[ div ~a:[a_class ["flex items-center space-x-2"]]
H.a_href @@ Link.Job.make ~job_name [
~queries:[ `Platform platform ] () check_icon latest_build.Builder_db.Build.result;
] a ~a:[
[H.txt platform]; a_href @@ Link.Job.make ~job_name ~queries:[ `Platform platform ] ();
H.txt " "; a_class ["text-primary-500 underline font-medium"]
H.a ~a:[ ]
H.a_href @@ Link.Job_build.make [txt platform]
~job_name ];
~build:latest_build.Builder_db.Build.uuid ()] div ~a:[a_class ["text-gray-300"]]
[txtf "%a" pp_ptime latest_build.Builder_db.Build.start]; [ a ~a:[
H.txt " "; a_href @@ Link.Job_build.make
~job_name
~build:latest_build.Builder_db.Build.uuid ();
a_class ["underline text-primary-500"]
]
[txtf "%a" pp_ptime latest_build.Builder_db.Build.start]; ];
] div ~a:[a_class [""]]
@ artifact [ artifact ~basename:true ~job_name ~build:latest_build ~file:latest_artifact ];
~basename:true ];
~job_name ])
~build:latest_build
~file:latest_artifact
@ [ H.br () ]
let make_jobs jobs = let make_jobs jobs =
jobs |> List.map (fun (job_name, synopsis, platform_builds) -> H.(table
H.li ( ~a:[a_class ["table-auto min-w-full"]]
[ ~thead:
H.a ~a:H.[a_href ("/job/" ^ job_name ^ "/")] (thead
[H.txt job_name]; [
H.br (); tr
H.txt (Option.value ~default:"" synopsis); [];
H.br () ])
] (List.map (fun (job_name, synopsis, platform_builds) ->
@ List.concat_map (make_platform_builds ~job_name) platform_builds tr ~a:[a_class ["divide-y divide-gray-600"]]
) [
) td
~a:[a_class ["px-6 py-4 font-medium text-gray-200"]]
[
a ~a:[a_href ("/job/" ^ job_name ^ "/"); a_class ["text-primary-500 font-bold"]]
[txt job_name];
br();
txt (Option.value ~default:"" synopsis);
];
td
~a:[a_class ["px-6 py-4 text-gray-400"]]
[
div ~a:[a_class ["flex flex-col text-wrap"]]
(List.concat_map (make_platform_builds ~job_name) platform_builds);
];
];
)
jobs))
let make_body section_job_map = let make_body section_job_map =
let aux section jobs acc = let aux section jobs acc =
acc @ [ acc @ [
H.h2 [ H.txt section ]; H.div ~a:[H.a_class ["my-4 py-4 divide-y divide-gray-300"]] [
H.ul (make_jobs jobs) H.h2 ~a:[H.a_class ["text-xl uppercase font-bold my-4"]] [ H.txt section ];
make_jobs jobs;
]
] ]
in in
Utils.String_map.fold aux section_job_map [] Utils.String_map.fold aux section_job_map []
let make_failed_builds = let make_failed_builds =
[ H.p [ [ H.div ~a:H.[a_class ["flex justify-center mt-6"]] [
H.txt "View the latest failed builds "; H.a ~a:H.[a_href "/failed-builds";
H.a ~a:H.[a_href "/failed-builds"] a_class ["text-secondary-500 underline font-semibold"]]
[H.txt "here"]; [H.txt "View Latest Failed Builds"];
H.txt "."; ]]
]]
let make_all_or_active all = let make_all_or_active all =
[ H.p [ [ H.div ~a:H.[a_class ["flex justify-center mt-6"]] [
H.txt (if all then "View active jobs " else "View all jobs "); H.a ~a:H.[a_href (if all then "/" else "/all-builds");
H.a ~a:H.[a_href (if all then "/" else "/all-builds")] a_class ["text-primary-500 underline font-semibold"]]
[H.txt "here"]; [H.txt (if all then "View Active Jobs" else "View All Jobs")];
H.txt "."; ]]
]]
let make ~all section_job_map = let make ~all section_job_map =
layout ~title:"Reproducible OPAM builds" layout ~title:"Reproducible OPAM builds"
(make_header (make_header
@ make_body section_job_map @ make_body section_job_map
@ make_failed_builds @ make_failed_builds
@ make_all_or_active all) @ make_all_or_active all)
let make_json ~all:_ section_job_map = let make_json ~all:_ section_job_map =
let all_jobs = let all_jobs =
@ -401,48 +421,53 @@ end
module Job = struct module Job = struct
let make_header ~job_name ~platform ~readme = let make_header ~job_name ~platform ~readme =
H.h1 [txtf "Job %s %a" job_name pp_platform platform] H.(h1 ~a:[a_class ["text-4xl font-bold text-center my-4"]] [txtf "Job %s %a" job_name pp_platform platform])
:: ( :: (
match readme with match readme with
| None -> [] | None -> []
| Some data -> | Some data ->
[ [
H.h2 ~a:H.[a_id "readme"] [H.txt "README"]; H.(div ~a:[a_class ["flex justify-between items-center"]] [
H.a ~a:H.[a_href "#builds"] [H.txt "Skip to builds"]; h2 ~a:[a_id "readme"; a_class ["text-2xl"]] [txt "README"];
a ~a:[a_href "#builds"; a_class ["text-primary-500 underline"]] [txt "Skip to builds"];
]);
H.Unsafe.data (Utils.md_to_html ~adjust_heading:2 data) H.Unsafe.data (Utils.md_to_html ~adjust_heading:2 data)
] ]
) )
let make_build ~job_name (build, main_binary) = let make_build ~job_name (build, main_binary) =
H.li ( H.(li ~a:[a_class ["my-4 p-4 border-t-1"]] (
[ [
check_icon build.Builder_db.Build.result; div ~a:[a_class ["flex my-2"]] [
txtf " %s " build.platform; check_icon build.Builder_db.Build.result;
H.a ~a:H.[ p ~a:[a_class ["text-xl px-2"]] [txtf " %s " build.platform;];
];
a ~a:[
a_href @@ Link.Job_build.make a_href @@ Link.Job_build.make
~job_name ~job_name
~build:build.Builder_db.Build.uuid () ] ~build:build.Builder_db.Build.uuid (); a_class ["text-primary-500 underline font-mono my-2"] ]
[ [
txtf "%a" pp_ptime build.Builder_db.Build.start; txtf "%a" pp_ptime build.Builder_db.Build.start;
]; ];
H.txt " ";
] ]
@ match main_binary with @ match main_binary with
| Some main_binary -> | Some main_binary ->
artifact [artifact
~basename:true ~basename:true
~job_name ~job_name
~build ~build
~file:main_binary ~file:main_binary]
| None -> | None ->
[ txtf "Build failure: %a" Builder.pp_execution_result [ txtf "Build failure: %a" Builder.pp_execution_result
build.Builder_db.Build.result ] build.Builder_db.Build.result ]
) ))
let make_builds ~failed ~job_name ~platform builds = let make_builds ~failed ~job_name ~platform builds =
[ [
H.h2 ~a:H.[a_id "builds"] [H.txt "Builds"]; H.(div ~a:[a_class ["flex justify-between items-center"]] [
H.a ~a:H.[a_href "#readme"] [H.txt "Back to readme"]; h2 ~a:[a_id "builds"; a_class ["text-2xl"]] [txt "Builds"];
a ~a:[a_href "#readme"; a_class ["text-primary-500 underline"]] [txt "Back to readme"];
]);
H.ul (builds |> List.map (make_build ~job_name)); H.ul (builds |> List.map (make_build ~job_name));
let queries = let queries =
platform |> Option.map (fun p -> `Platform p) |> Option.to_list platform |> Option.map (fun p -> `Platform p) |> Option.to_list
@ -451,7 +476,7 @@ module Job = struct
H.p [ H.p [
H.txt "Excluding failed builds " ; H.txt "Excluding failed builds " ;
H.a ~a:H.[ H.a ~a:H.[
a_href @@ Link.Job.make ~job_name ~queries () a_href @@ Link.Job.make ~job_name ~queries (); a_class ["text-primary-500 underline font-mono"]
] ]
[H.txt "here"] ; [H.txt "here"] ;
H.txt "." ] H.txt "." ]
@ -459,7 +484,7 @@ module Job = struct
H.p [ H.p [
H.txt "Including failed builds " ; H.txt "Including failed builds " ;
H.a ~a:H.[ H.a ~a:H.[
a_href @@ Link.Job.make_failed ~job_name ~queries () a_href @@ Link.Job.make_failed ~job_name ~queries (); a_class ["text-secondary-500 underline font-mono"]
] ]
[H.txt "here"] ; [H.txt "here"] ;
H.txt "." ] H.txt "." ]
@ -536,16 +561,16 @@ module Job_build = struct
let aux (file:Builder_db.file) = let aux (file:Builder_db.file) =
let sha256_hex = Ohex.encode file.sha256 in let sha256_hex = Ohex.encode file.sha256 in
[ [
H.dt [ H.(dt [
H.a ~a:H.[a_href @@ Link.Job_build_artifact.make a ~a:[a_href @@ Link.Job_build_artifact.make
~job_name ~job_name
~build:build_uuid ~build:build_uuid
~artifact:(`File file.filepath) () ~artifact:(`File file.filepath) ();
a_class ["text-primary-500 underline"]
] ]
[H.code [txtf "%a" Fpath.pp file.filepath]] ]; [code [txtf "%a" Fpath.pp file.filepath; txtf " (%a)" Fmt.byte_size file.size]] ]);
H.dd ([ H.dd ([
H.code [H.txt "SHA256:"; H.txt sha256_hex]; H.code [H.txt "SHA256:"; H.txt sha256_hex];
txtf " (%a)" Fmt.byte_size file.size;
] @ ] @
match main_binary, solo5_manifest with match main_binary, solo5_manifest with
| Some main_binary, Some solo5_manifest when main_binary = file -> | Some main_binary, Some solo5_manifest when main_binary = file ->
@ -554,8 +579,8 @@ module Job_build = struct
] ]
in in
[ [
H.h3 [H.txt "Build artifacts"]; H.(h3 ~a:[a_class ["text-xl font-semibold my-4"]] [txt "Build artifacts"]);
H.dl (List.concat_map aux artifacts) H.(dl ~a:[a_class ["p-4 my-4"]] (List.concat_map aux artifacts))
] ]
let make_reproductions let make_reproductions
@ -586,13 +611,15 @@ module Job_build = struct
different_input_same_output different_input_same_output
in in
[ [
H.h3 [ H.(div ~a:[a_class ["my-4"]] [
h3 ~a:[a_class ["text-xl font-semibold"]] [
txtf "Reproduced by %d builds" txtf "Reproduced by %d builds"
(List.length (same_input_same_output @ different_input_same_output))] ; (List.length (same_input_same_output @ different_input_same_output))];
H.ul @@ ( ul @@ (
same_input_same_output_html same_input_same_output_html
@ different_input_same_output_html @ different_input_same_output_html
) )
])
] ]
let make_not_reproducible let make_not_reproducible
@ -623,7 +650,7 @@ module Job_build = struct
~next ~next
= =
[ [
H.h3 [H.txt "Comparisons with other builds on the same platform"]; H.(h3 ~a:[a_class ["my-4 text-xl font-semibold"]] [txt "Comparisons with other builds on the same platform"]);
let opt_build (ctx, build') = let opt_build (ctx, build') =
match build' with match build' with
| Some b when not (Uuidm.equal build.uuid b.Builder_db.Build.uuid) -> | Some b when not (Uuidm.equal build.uuid b.Builder_db.Build.uuid) ->
@ -631,7 +658,7 @@ module Job_build = struct
H.a ~a:[ H.a ~a:[
H.a_href @@ Link.Compare_builds.make H.a_href @@ Link.Compare_builds.make
~left:b.uuid ~left:b.uuid
~right:build.uuid () ] ~right:build.uuid () ; H.a_class ["underline text-primary-500 font-mono"] ]
[txtf "%a" pp_ptime b.start]] [txtf "%a" pp_ptime b.start]]
] ]
| _ -> [] | _ -> []
@ -656,29 +683,107 @@ module Job_build = struct
~latest ~next ~previous ~latest ~next ~previous
= =
[ [
H.h2 ~a:H.[a_id "build"] [txtf "Build %a" pp_ptime build.start]; H.(h2 ~a:[a_id "build"; a_class ["text-2xl my-4 font-semibold"]] [txtf "Build %a" pp_ptime build.start]);
H.p [txtf "Built on platform %s" build.platform ]; H.(div ~a:[a_class []] [
H.p [txtf "Build took %a." Ptime.Span.pp delta ]; table
H.p [txtf "Execution result: %a." Builder.pp_execution_result build.result]; ~a:[a_class ["table-auto min-w-full border my-4"]]
H.h3 [H.txt "Build info"]; ~thead:
H.ul [ (thead
H.li [ [
H.a ~a:H.[ tr ~a:[a_class ["border"]]
a_href @@ Link.Job_build_artifact.make [
~job_name th
~build:build.uuid ~a:
~artifact:`Console () [
] [H.txt "Console output"]; a_class
[
"px-6 py-2 text-center \
font-bold \
text-primary-600 uppercase";
];
]
[ txt "Platform" ];
th
~a:
[
a_class
[
"px-6 py-2 text-center \
font-bold \
text-primary-600 uppercase";
];
]
[ txt "Duration" ];
th
~a:
[
a_class
[
"px-6 py-2 text-center \
font-bold \
text-primary-600 uppercase";
];
]
[ txt "Execution Result" ];
];
])
[
tr ~a:[a_class ["text-center"]]
[
td
~a:
[
a_class
[
"px-6 py-1 \
font-medium text-gray-200";
];
]
[ txtf "%s" build.platform ];
td
~a:
[
a_class
[
"px-6 py-1 \
font-medium text-gray-200";
];
]
[ txtf "%a." Ptime.Span.pp delta ];
td
~a:
[
a_class
[
"px-6 py-1 \
font-medium text-gray-200";
];
]
[ txtf "%a" Builder.pp_execution_result build.result ];
]
];
]);
H.(h3 ~a:[a_class ["text-xl font-semibold my-2"]] [txt "Build info"]);
H.(div ~a:[a_class ["my-4 flex justify-between items-center"]] [
div [
a ~a:[
a_href @@ Link.Job_build_artifact.make
~job_name
~build:build.uuid
~artifact:`Console ();
a_class ["text-primary-500 font-mono"]
] [H.txt "Console output -->"];
]; ];
H.li [ div [
H.a ~a:H.[ a ~a:[
a_href @@ Link.Job_build_artifact.make a_href @@ Link.Job_build_artifact.make
~job_name ~job_name
~build:build.uuid ~build:build.uuid
~artifact:`Script () ~artifact:`Script ();
] [H.txt "Build script"]; a_class ["text-primary-500 font-mono"]
] [txt "Build script -->"];
] ]
]; ]);
] ]
@ make_artifacts @ make_artifacts
~job_name ~job_name
@ -816,15 +921,15 @@ and the rest of the unaccounted data.\
~same_input_different_output ~same_input_different_output
~latest ~next ~previous ~latest ~next ~previous
in in
let style_grid = H.a_style "display: flex; " in let _style_grid = H.a_style "display: flex; " in
let style_col_left = let _style_col_left =
H.a_style "width: 45em; min-width: 43em;" in H.a_style "width: 45em; min-width: 43em;" in
let style_col_right = H.a_style "width: 50%" in let _style_col_right = H.a_style "width: 50%" in
let body = [ let body = [
H.h1 [txtf "Job %s" job_name]; H.(h1 ~a:[a_class ["text-4xl font-bold text-center my-4"]] [txtf "Job %s" job_name]);
H.div~a:[ style_grid ] [ H.div~a:[ H.a_class ["grid grid-cols-2 gap-10"] ] [
H.div~a:[ style_col_left ] left_column; H.div~a:[ ] left_column;
H.div~a:[ style_col_right ] right_column H.div~a:[ ] right_column
] ]
] ]
in in
@ -869,10 +974,9 @@ let duniverse_diffs diffs =
]) diffs ]) diffs
let opam_diffs diffs = let opam_diffs diffs =
List.concat_map (fun pd -> List.concat_map (fun pd ->
H.h4 [ txtf "%a" Opamdiff.pp_opam_diff pd ] :: H.h4 ~a:[H.a_class ["text-md font-semibold text-primary-500"]] [ txtf "%a" Opamdiff.pp_opam_diff pd ] ::
H.h5 [ H.txt "diff" ] :: H.pre [ H.code [H.txt pd.diff] ] ::
H.pre [ H.code [ H.txt pd.diff ] ] ::
H.br () :: []) H.br () :: [])
diffs diffs
@ -891,41 +995,41 @@ let compare_builds
if amount = 0 then if amount = 0 then
items, data items, data
else else
H.li [ H.a ~a:[H.a_href id_href] [txtf "%d %s" amount txt] ] :: items, H.li [ H.a ~a:[H.a_href id_href; H.a_class ["underline text-primary-500 font-mono"]] [txtf "%d %s" amount txt] ] :: items,
data @ H.h3 ~a:[H.a_id id] [H.txt txt] :: code) data @ H.h3 ~a:[H.a_id id; H.a_class ["text-xl font-semibold my-4"]] [H.txt txt] :: code)
([], []) ([], [])
([ ("opam-packages-removed", "Opam packages removed", ([ ("opam-packages-removed", "Opam packages removed",
OpamPackage.Set.cardinal left, [ H.code (packages left) ]) ; OpamPackage.Set.cardinal left, [ H.(code ~a:[a_class ["code-diff"]] (packages left)) ]) ;
("opam-packages-installede", "New opam packages installed", ("opam-packages-installede", "New opam packages installed",
OpamPackage.Set.cardinal right, [ H.code (packages right) ]) ; OpamPackage.Set.cardinal right, [ H.(code ~a:[a_class ["code-diff"]] (packages right)) ]) ;
("opam-packages-version-diff", "Opam packages with version changes", ("opam-packages-version-diff", "Opam packages with version changes",
List.length version_diff, [ H.code (package_diffs version_diff) ]) ; List.length version_diff, [ H.(code ~a:[a_class ["code-diff"]] (package_diffs version_diff)) ]) ;
] @ (match duniverse with ] @ (match duniverse with
| Ok (duniverse_left, duniverse_right, duniverse_content_diff) -> | Ok (duniverse_left, duniverse_right, duniverse_content_diff) ->
[ [
("duniverse-dirs-removed", "Duniverse directories removed", ("duniverse-dirs-removed", "Duniverse directories removed",
List.length duniverse_left, [ H.code (duniverse_dirs duniverse_left) ]) ; List.length duniverse_left, [ H.(code ~a:[a_class ["code-diff"]] (duniverse_dirs duniverse_left)) ]) ;
("duniverse-dirs-installed", "New duniverse directories installed", ("duniverse-dirs-installed", "New duniverse directories installed",
List.length duniverse_right, [ H.code (duniverse_dirs duniverse_right) ]) ; List.length duniverse_right, [ H.(code ~a:[a_class ["code-diff"]] (duniverse_dirs duniverse_right)) ]) ;
("duniverse-dirs-content-diff", "Duniverse directories with content changes", ("duniverse-dirs-content-diff", "Duniverse directories with content changes",
List.length duniverse_content_diff, [ H.code (duniverse_diffs duniverse_content_diff) ]) ; List.length duniverse_content_diff, [ H.(code ~a:[a_class ["code-diff"]] (duniverse_diffs duniverse_content_diff)) ]) ;
] ]
| Error `Msg msg -> [ "duniverse-dirs-error", "Duniverse parsing error", 1, [ H.txt msg ] ] | Error `Msg msg -> [ "duniverse-dirs-error", "Duniverse parsing error", 1, [ H.txt msg ] ]
) @ [ ) @ [
("opam-packages-opam-diff", "Opam packages with changes in their opam file", ("opam-packages-opam-diff", "Opam packages with changes in their opam file",
List.length opam_diff, opam_diffs opam_diff) ; List.length opam_diff, opam_diffs opam_diff) ;
("env-removed", "Environment variables removed", ("env-removed", "Environment variables removed",
List.length removed_env, [ H.code (key_values removed_env) ]) ; List.length removed_env, [ H.(code ~a:[a_class ["code-diff"]] (key_values removed_env)) ]) ;
("env-added", "New environment variables added", ("env-added", "New environment variables added",
List.length added_env, [ H.code (key_values added_env) ]) ; List.length added_env, [ H.(code ~a:[a_class ["code-diff"]] (key_values added_env)) ]) ;
("env-changed", "Environment variables changed", ("env-changed", "Environment variables changed",
List.length changed_env, [ H.code (key_value_changes changed_env) ]) ; List.length changed_env, [ H.(code ~a:[a_class ["code-diff"]] (key_value_changes changed_env)) ]) ;
("pkgs-removed", "System packages removed", ("pkgs-removed", "System packages removed",
List.length removed_pkgs, [ H.code (key_values removed_pkgs) ]) ; List.length removed_pkgs, [ H.(code ~a:[a_class ["code-diff"]] (key_values removed_pkgs)) ]) ;
("pkgs-added", "New system packages added", ("pkgs-added", "New system packages added",
List.length added_pkgs, [ H.code (key_values added_pkgs) ]) ; List.length added_pkgs, [ H.(code ~a:[a_class ["code-diff"]] (key_values added_pkgs)) ]) ;
("pkgs-changed", "System packages changed", ("pkgs-changed", "System packages changed",
List.length changed_pkgs, [ H.code (key_value_changes changed_pkgs) ]) ; List.length changed_pkgs, [ H.(code ~a:[a_class ["code-diff"]] (key_value_changes changed_pkgs)) ]) ;
]) ])
in in
layout layout
@ -933,32 +1037,32 @@ let compare_builds
~title:(Fmt.str "Comparing builds %a and %a" ~title:(Fmt.str "Comparing builds %a and %a"
Uuidm.pp build_left.uuid Uuidm.pp build_right.uuid) Uuidm.pp build_left.uuid Uuidm.pp build_right.uuid)
([ ([
H.h1 [H.txt "Comparing builds"]; H.(h1 ~a:[a_class ["text-center text-2xl font-semibold my-4"]] [txt "Comparing builds"]);
H.h2 [ H.(h2 ~a:[a_class ["text-center text-xl font-semibold my-4"]] [
H.txt "Builds "; txt "Builds ";
H.a ~a:H.[ a_href @@ (a ~a:[ a_href @@
Link.Job_build.make Link.Job_build.make
~job_name:job_left ~job_name:job_left
~build:build_left.uuid () ] ~build:build_left.uuid (); a_class ["text-primary-500 underline font-mono"] ]
[ txtf "%s@%a %a" [ txtf "%s@%a %a"
job_left job_left
pp_ptime build_left.start pp_ptime build_left.start
pp_platform (Some build_left.platform)]; pp_platform (Some build_left.platform)]);
H.txt " and "; txt " and ";
H.a ~a:H.[ a_href @@ a ~a:[ a_href @@
Link.Job_build.make Link.Job_build.make
~job_name:job_right ~job_name:job_right
~build:build_right.uuid () ] ~build:build_right.uuid (); a_class ["text-primary-500 underline font-mono"] ]
[ txtf "%s@%a %a" [ txtf "%s@%a %a"
job_right job_right
pp_ptime build_right.start pp_ptime build_right.start
pp_platform (Some build_right.platform)]; pp_platform (Some build_right.platform)];
]; ]);
H.h3 [ H.a ~a:H.[ H.(h3 ~a:[a_class ["text-right"]] [ a ~a:[
a_href @@ Link.Compare_builds.make a_href @@ Link.Compare_builds.make
~left:build_right.uuid ~left:build_right.uuid
~right:build_left.uuid () ] ~right:build_left.uuid (); a_class ["text-primary-500 underline font-mono"] ]
[H.txt "Compare in reverse direction"]] ; [txt "Compare in reverse direction"]]) ;
H.ul (List.rev items) ] @ data) H.ul (List.rev items) ] @ data)
let failed_builds ~start ~count builds = let failed_builds ~start ~count builds =