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

Rephrase, hide UUID from user

Browse source
This commit is contained in:
Reynir Björnsson 2020-12-07 21:40:57 +01:00
parent 494d4eb215
commit 60a3f629d8
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lib/views.ml
View file

@ -47,7 +47,7 @@ let job name runs =
layout ~title:(Printf.sprintf "Job %s" name)
[ h1 [txtf "Job %s" name];
p [
txtf "Currently %d job runs."
txtf "Currently %d builds."
(List.length runs)
];
ul (List.map (fun run ->
@ -66,15 +66,15 @@ let job name runs =
let job_run
{ Model.meta = {
Model.job_info = { Builder.name; _ };
start; finish; uuid; result };
out; _ }
start; finish; uuid = _; result };
out; data = _ }
=
let ptime_pp = Ptime.pp_human () in
let delta = Ptime.diff finish start in
layout ~title:(Printf.sprintf "Job run %s (%s)" name (Uuidm.to_string uuid))
[ h1 [txtf "Job build %s %a (%a)" name ptime_pp start Uuidm.pp uuid];
p [txtf "Took %a." Ptime.Span.pp delta ];
p [txtf "Status: %a." Builder.pp_execution_result result];
layout ~title:(Fmt.strf "Job build %s %a" name ptime_pp start)
[ h1 [txtf "Job build %s %a" name ptime_pp start];
p [txtf "Build took %a." Ptime.Span.pp delta ];
p [txtf "Execution result: %a." Builder.pp_execution_result result];
table (List.concat_map (fun (ts, line) ->
[tr [
td ~a:[a_class ["output-ts"]]