From 6e2c5718c1b12c465f18d19148a15de59b231f7c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= <reynir@reynir.dk>
Date: Mon, 7 Dec 2020 21:45:15 +0100
Subject: [PATCH] Sort builds by start datetime

---
 lib/builder_web.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/builder_web.ml b/lib/builder_web.ml
index 0668810..7c0760a 100644
--- a/lib/builder_web.ml
+++ b/lib/builder_web.ml
@@ -31,7 +31,10 @@ let routes (t : Model.t) =
       Model.job t job with
     | Ok 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
     | Error (`Msg e) ->
       Log.warn (fun m -> m "Error getting job: %s" e);