branch master updated: Fix RSS specification handling.

[Mathieu Othacehe]

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