Sort builds latest first

Fixes #17
This commit is contained in:
Reynir Björnsson 2021-01-22 13:15:50 +01:00
parent 6f9a74ec65
commit d63976f809

View file

@ -286,7 +286,7 @@ module Build = struct
script, job script, job
FROM build FROM build
WHERE job = ? WHERE job = ?
ORDER BY start_d ASC, start_ps ASC ORDER BY start_d DESC, start_ps DESC
|} |}
let get_all_meta = let get_all_meta =
@ -298,7 +298,7 @@ module Build = struct
result_kind, result_code, result_msg, job result_kind, result_code, result_msg, job
FROM build FROM build
WHERE job = ? WHERE job = ?
ORDER BY start_d ASC, start_ps ASC ORDER BY start_d DESC, start_ps DESC
|} |}
let get_all_meta_by_name = let get_all_meta_by_name =
@ -311,7 +311,7 @@ module Build = struct
build.result_kind, build.result_code, build.result_msg, build.job build.result_kind, build.result_code, build.result_msg, build.job
FROM build, job FROM build, job
WHERE job.name = ? AND build.job = job.id WHERE job.name = ? AND build.job = job.id
ORDER BY start_d ASC, start_ps ASC ORDER BY start_d DESC, start_ps DESC
|} |}