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

52
lib/views.ml
View file

@ -179,11 +179,10 @@ 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 ];
];
H.txt " "; H.txt " ";
H.code [txtf "SHA256:%a" Hex.pp (Hex.of_cstruct sha256)]; H.code [txtf "SHA256:%a" Hex.pp (Hex.of_cstruct sha256)];
txtf " (%a)" Fmt.byte_size size; txtf " (%a)" Fmt.byte_size size;
@ -212,22 +211,21 @@ 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 ();
H.input ~a:H.[
a_input_type `Search;
a_id "sha256";
a_name "sha256";
] ();
];
H.input ~a:H.[ H.input ~a:H.[
a_input_type `Submit; a_input_type `Search;
a_value "Search"; a_id "sha256";
a_name "sha256";
] (); ] ();
]; ];
H.input ~a:H.[
a_input_type `Submit;
a_value "Search";
] ();
];
] ]
let make_platform_builds ~job_name (platform, latest_build, latest_artifact) = let make_platform_builds ~job_name (platform, latest_build, latest_artifact) =
@ -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_failed_builds =
[ H.p [
H.txt "View the latest failed builds ";
H.a ~a:H.[a_href "/failed-builds/"]
[H.txt "here"];
H.txt "."
]]
let make section_job_map = let make 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
@ [ H.p [ @ make_failed_builds)
H.txt "View the latest failed builds ";
H.a ~a:H.[a_href "/failed-builds/"]
[H.txt "here"];
H.txt "."
]])
end end