[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: Fix RSS specification handling.
From: |
Mathieu Othacehe |
Subject: |
branch master updated: Fix RSS specification handling. |
Date: |
Tue, 02 Feb 2021 07:58:06 -0500 |
This is an automated email from the git hooks/post-receive script.
mothacehe pushed a commit to branch master
in repository guix-cuirass.
The following commit(s) were added to refs/heads/master by this push:
new 7cf304f Fix RSS specification handling.
7cf304f is described below
commit 7cf304f7543b445187b36a9f42cc903563838458
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Tue Feb 2 13:57:28 2021 +0100
Fix RSS specification handling.
* src/cuirass/http.scm (url-handler): Pass the specification to
"db-get-builds" procedure.
---
src/cuirass/http.scm | 17 +++++++++++------
1 file changed, 11 insertions(+), 6 deletions(-)
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index d332740..2d3d4cb 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: Fix RSS specification handling.,
Mathieu Othacehe <=