diff options
| -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"))) |