Skip to content
Snippets Groups Projects
Unverified Commit 7cf304f7 authored by Mathieu Othacehe's avatar Mathieu Othacehe
Browse files

Fix RSS specification handling.

* src/cuirass/http.scm (url-handler): Pass the specification to
"db-get-builds" procedure.
parent b33fe066
No related branches found
No related tags found
No related merge requests found
......@@ -673,12 +673,17 @@ Hydra format."
(respond-json-with-error 500 "Query parameter not provided."))))
(('GET "events" "rss")
(let* ((params (request-parameters request)))
(respond-xml (rss-feed (db-get-builds `((weather . new)
(nr . 100)
(order . evaluation)
,@params))
#:params params))))
(let* ((params (request-parameters request))
(specification (and params
(assq-ref params 'specification))))
(respond-xml
(rss-feed
(db-get-builds `((weather . new)
(jobset . ,specification)
(nr . 100)
(order . evaluation)
,@params))
#:params params))))
(('GET "workers")
(respond-html
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment