diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-01-23 22:54:01 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-23 23:39:13 +0100 |
commit | 06b8af00fbf6c0d146411e895da1bc95365d364b (patch) | |
tree | 354864c62e223834aeb51ad8f9d43d7f040976af /src/cuirass/http.scm | |
parent | 6fb711883965fe40be5ee63b2524273da8414578 (diff) | |
download | cuirass-06b8af00fbf6c0d146411e895da1bc95365d364b.tar cuirass-06b8af00fbf6c0d146411e895da1bc95365d364b.tar.gz |
http: /api/latestbuilds only returns finished builds.
* src/cuirass/database.scm (db-get-builds)[format-where-clause]:
Honor (status done) filter.
* src/cuirass/http.scm (url-handler): Always add (status done)
to the filters passed to 'handle-builds-request'.
Diffstat (limited to 'src/cuirass/http.scm')
-rw-r--r-- | src/cuirass/http.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 57326c4..87fb7b7 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -149,8 +149,11 @@ ;; 'nr parameter is mandatory to limit query size. (valid-params? (assq-ref params 'nr))) (if valid-params? + ;; Limit results to builds that are "done". (respond-json (object->json-string - (handle-builds-request db params))) + (handle-builds-request db + `((status done) + ,@params)))) (respond-json-with-error 500 "Parameter not defined!")))) (_ (respond (build-response #:code 404) |