diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-01-29 09:58:11 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-01-29 09:58:29 +0000 |
| commit | c8ff0417f167e1b48cb96997259da4c848d51653 (patch) | |
| tree | ef34a89f4586feafa59e68fe880de1c6dc3c8aa6 | |
| parent | d2ff7c36f379dc2c9b619b9941b4cd612df95857 (diff) | |
| download | bffe-master.tar bffe-master.tar.gz | |
| -rw-r--r-- | bffe/view/build.scm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/bffe/view/build.scm b/bffe/view/build.scm index c061668..1a7dc53 100644 --- a/bffe/view/build.scm +++ b/bffe/view/build.scm @@ -46,7 +46,23 @@ "success") "Succeeded" "Failed") - "Pending"))) + "Pending")) + ,@(or (and=> + (peek (assoc-ref build-details "result")) + (lambda (result) + `((ul + (li "Agent " + (a (@ (href ,(string-append + "/agent/" + (assoc-ref result "agent_id")))) + ,(assoc-ref result "agent_id"))) + ,@(or (and=> + (assoc-ref result "failure_reason") + (lambda (failure-reason) + `((li "Failure reason: ") + (dl ,failure-reason)))) + '()))))) + '())) (dt "Priority") (dd ,(assoc-ref build-details "priority"))) |