This is an automated email from the git hooks/post-receive script.
civodul pushed a commit to branch main
in repository guix-cuirass.
The following commit(s) were added to refs/heads/main by this push:
new 2404e25 http: Always pass a specification sexp to the bridge for
‘update-jobset’.
2404e25 is described below
commit 2404e258a0f96a752f6a947ed9ef53546dabb594
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Fri May 9 14:40:00 2025 +0200
http: Always pass a specification sexp to the bridge for ‘update-jobset’.
Fixes a regression introduced in
90d536b69b7fc401546f16d503f0f6464f5fc96a.
* src/cuirass/http.scm (url-handler): In /admin/gitlab/event, pass a
specification sexp with the ‘update-jobset’ message to the bridge.
Likewise in /admin/forgejo/event.
---
src/cuirass/http.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 01c93e4..0d53a09 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -771,7 +771,7 @@ return DEFAULT."
("update"
(let ((spec-name (specification-name spec)))
(if (db-get-specification spec-name)
- (if (call-bridge `(update-jobset ,(specification-name
spec))
+ (if (call-bridge `(update-jobset
,(specification->sexp spec))
bridge)
(respond-json (scm->json-string `((jobset .
,spec-name))))
(begin
@@ -833,7 +833,7 @@ return DEFAULT."
;; Pull request is updated.
('synchronized
(if (db-get-specification spec-name)
- (if (call-bridge `(update-jobset ,(specification-name
spec))
+ (if (call-bridge `(update-jobset ,(specification->sexp
spec))
bridge)
(respond-json (scm->json-string `((jobset .
,spec-name))))
(begin
