diff options
Diffstat (limited to 'src/cuirass/http.scm')
| -rw-r--r-- | src/cuirass/http.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 31960ac..e911b9b 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -186,6 +186,17 @@ Hydra format." (#f (respond-build-not-found build-id))) (respond-build-not-found build-id)))) + (("api" "evaluations") + (let* ((params (request-parameters request)) + ;; 'nr parameter is mandatory to limit query size. + (nr (match (assq-ref params 'nr) + ((val) val) + (_ #f)))) + (if nr + (respond-json (object->json-string + (with-critical-section db-channel (db) + (db-get-evaluations db nr)))) + (respond-json-with-error 500 "Parameter not defined!")))) (("api" "latestbuilds") (let* ((params (request-parameters request)) ;; 'nr parameter is mandatory to limit query size. |