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

Sort builds by start datetime

Browse source
This commit is contained in:
Reynir Björnsson 2020-12-07 21:45:15 +01:00
parent 60a3f629d8
commit 6e2c5718c1
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/builder_web.ml
View file

@ -31,7 +31,10 @@ let routes (t : Model.t) =
Model.job t job with Model.job t job with
| Ok job -> | Ok job ->
let name = Model.job_name job let name = Model.job_name job
and runs = job.Model.runs in and runs = List.sort
(fun (b1 : Model.job_run_meta) (b2 : Model.job_run_meta) ->
Ptime.compare b1.start b2.start)
job.Model.runs in
Views.job name runs |> Response.of_html |> Lwt.return Views.job name runs |> Response.of_html |> Lwt.return
| Error (`Msg e) -> | Error (`Msg e) ->
Log.warn (fun m -> m "Error getting job: %s" e); Log.warn (fun m -> m "Error getting job: %s" e);