branch: main
commit fb3349f42b5a0b38778cdc89b94d6e03ad4f0def
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Tue Mar 18 15:43:39 2025 +0100
forgejo: Correctly compute the evaluation ID for the notification.
Previously ‘max’ would be passed a list as its single argument, leading
to a wrong-type-arg error.
* src/cuirass/forges/forgejo.scm (forgejo-handle-notification): Apply
‘max’ to the list of evaluation IDs.
---
src/cuirass/forges/forgejo.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/cuirass/forges/forgejo.scm b/src/cuirass/forges/forgejo.scm
index 5d1fbb1..71c0f73 100644
--- a/src/cuirass/forges/forgejo.scm
+++ b/src/cuirass/forges/forgejo.scm
@@ -376,8 +376,9 @@ EVALUATION-FAILED are numbers and BUILD-RESULTS is a list
of build records."
evaluation-failed %cuirass-url evaluation-failed
name %cuirass-url name))
(build-results
- (let* ((evaluation-id (max (filter-map build-evaluation-id
- 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
