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

Views: More syntax + separated out failed-builds footer in Builds

Browse source
This commit is contained in:
rand00 2022-02-03 14:42:33 +01:00
parent b0fc7c1d9d
commit f0632dff6f
1 changed files with 27 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lib/views.ml
View file

@ -179,8 +179,7 @@ let artifact
Fpath.pp filepath Fpath.pp filepath
in in
[ [
H.a ~a:H.[a_href artifact_link] H.a ~a:H.[a_href artifact_link] [
[
if basename then H.txt (Fpath.basename filepath) if basename then H.txt (Fpath.basename filepath)
else txtf "%a" Fpath.pp filepath else txtf "%a" Fpath.pp filepath
]; ];
@ -212,8 +211,7 @@ module Builds = struct
H.txt ". Contact team@robur.coop if you have any questions or \ H.txt ". Contact team@robur.coop if you have any questions or \
suggestions."; suggestions.";
]; ];
H.form ~a:H.[a_action "/hash"; a_method `Get] H.form ~a:H.[a_action "/hash"; a_method `Get] [
[
H.label [ H.label [
H.txt "Search artifact by SHA256"; H.txt "Search artifact by SHA256";
H.br (); H.br ();
@ -270,7 +268,8 @@ module Builds = struct
H.txt (Option.value ~default:"" synopsis); H.txt (Option.value ~default:"" synopsis);
H.br () H.br ()
] ]
@ List.concat_map (make_platform_builds ~job_name) platform_builds) @ List.concat_map (make_platform_builds ~job_name) platform_builds
)
) )
let make_body section_job_map = let make_body section_job_map =
@ -282,16 +281,19 @@ module Builds = struct
in in
Utils.String_map.fold aux section_job_map [] Utils.String_map.fold aux section_job_map []
let make section_job_map = let make_failed_builds =
layout ~title:"Reproducible OPAM builds" [ H.p [
(make_header
@ make_body section_job_map
@ [ H.p [
H.txt "View the latest failed builds "; H.txt "View the latest failed builds ";
H.a ~a:H.[a_href "/failed-builds/"] H.a ~a:H.[a_href "/failed-builds/"]
[H.txt "here"]; [H.txt "here"];
H.txt "." H.txt "."
]]) ]]
let make section_job_map =
layout ~title:"Reproducible OPAM builds"
(make_header
@ make_body section_job_map
@ make_failed_builds)
end end