summaryrefslogtreecommitdiff
path: root/src/cuirass/database.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-01-29 11:59:45 +0100
committerLudovic Courtès <ludo@gnu.org>2018-01-29 18:06:47 +0100
commitfcd1bc13bce741a96a315ed0b0d06dc8e88519f9 (patch)
tree6c9307fbde42c655f474d6818416503f9dac23f3 /src/cuirass/database.scm
parent5e959dd8f2bd9119758ff0fd056965bf2c6a6b21 (diff)
downloadcuirass-fcd1bc13bce741a96a315ed0b0d06dc8e88519f9.tar
cuirass-fcd1bc13bce741a96a315ed0b0d06dc8e88519f9.tar.gz
http: /api/queue returns builds sorted by status.
* src/cuirass/database.scm (db-get-builds)[format-order-clause]: Add 'status+submission-time'. * src/cuirass/http.scm (url-handler) <"queue">: Use it.
Diffstat (limited to 'src/cuirass/database.scm')
-rw-r--r--src/cuirass/database.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 5ca3ad3..b3d0e74 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -361,6 +361,10 @@ FILTERS is an assoc list which possible keys are 'project | 'jobset | 'job |
"ORDER BY Builds.start DESC")
(('order 'submission-time)
"ORDER BY Builds.timestamp DESC")
+ (('order 'status+submission-time)
+ ;; With this order, builds in 'running' state (-1) appear
+ ;; before those in 'scheduled' state (-2).
+ "ORDER BY Builds.status DESC, Builds.timestamp DESC")
(_ #f))
filters)
"ORDER BY Builds.id DESC")) ;default order