branch: main
commit cd46c7a95857bd882f1d6e05192a04b222e8dd0f
Author: Romain GARBAGE <romain.garb...@inria.fr>
AuthorDate: Fri Mar 21 11:48:29 2025 +0100
forgejo: Properly handle %cuirass-url as a parameter.
* src/cuirass/forges/forgejo.scm (forgejo-handle-notification): Properly
handle %cuirass-url as a parameter.
Signed-off-by: Ludovic Courtès <l...@gnu.org>
---
src/cuirass/forges/forgejo.scm | 19 ++++++++++---------
1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/src/cuirass/forges/forgejo.scm b/src/cuirass/forges/forgejo.scm
index 60ac6bf..ca527e3 100644
--- a/src/cuirass/forges/forgejo.scm
+++ b/src/cuirass/forges/forgejo.scm
@@ -361,34 +361,35 @@ EVALUATION-FAILED are numbers and BUILD-RESULTS is a list
of build records."
(specification-name spec))
(let* ((name (specification-name spec))
+ (cuirass-url (%cuirass-url))
(message (cond
(jobset-created
(format #f
"> Created Cuirass jobset [~a](~a/jobset/~a)."
- name %cuirass-url name))
+ name cuirass-url name))
(evaluation-started
(format #f
"> Started evaluation [~a](~a/eval/~a) of Cuirass
jobset [~a](~a/jobset/~a)."
- evaluation-started %cuirass-url evaluation-started
- name %cuirass-url name))
+ evaluation-started cuirass-url evaluation-started
+ name cuirass-url name))
(evaluation-succeeded
(format #f
"> Finished evaluation [~a](~a/eval/~a) of Cuirass
jobset [~a](~a/jobset/~a)."
- evaluation-succeeded %cuirass-url
evaluation-succeeded
- name %cuirass-url name))
+ evaluation-succeeded cuirass-url
evaluation-succeeded
+ name cuirass-url name))
(evaluation-failed
(format #f
"> Evaluation [~a](~a/eval/~a) of Cuirass jobset
[~a](~a/jobset/~a) failed."
- evaluation-failed %cuirass-url evaluation-failed
- name %cuirass-url name))
+ evaluation-failed cuirass-url evaluation-failed
+ name cuirass-url name))
(build-results
(let* ((evaluation-id (apply max
(filter-map
build-evaluation-id
build-results)))
(header
(format #f "> Results for evaluation
[~a](~a/eval/~a) of Cuirass jobset [~a](~a/jobset/~a):~%"
- evaluation-id %cuirass-url evaluation-id
- name %cuirass-url name))
+ evaluation-id cuirass-url evaluation-id
+ name cuirass-url name))
(succeeded-builds (filter-map (lambda (build)
(and (eq? 0
(build-current-status build))
(build-nix-name build)))
