diff options
Diffstat (limited to 'src/cuirass/http.scm')
| -rw-r--r-- | src/cuirass/http.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 2a4113f..7d36945 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -396,6 +396,15 @@ Hydra format." (specifications-table (db-get-specifications)) '()))) + (("api" "evaluation-events") + (let* ((params (request-parameters request)) + ;; 'nr parameter is mandatory to limit query size. + (valid-params? (assq-ref params 'nr))) + (if valid-params? + (respond-json + (object->json-string + (handle-events-request 'evaluation params))) + (respond-json-with-error 500 "Parameter not defined!")))) (('GET "jobset" name) (respond-html |