diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 0643af8..5582867 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -758,6 +758,7 @@ (if (any-invalid-query-parameters? query-parameters) (render-html #:sxml (view-revision-builds query-parameters + commit-hash build-status-strings (valid-systems conn) '() @@ -767,6 +768,7 @@ (target (assq-ref query-parameters 'target))) (render-html #:sxml (view-revision-builds query-parameters + commit-hash build-status-strings (valid-systems conn) (map (match-lambda diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 00d6daa..0ddd503 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -1172,6 +1172,7 @@ figure { '()))))))) (define (view-revision-builds query-parameters + commit-hash build-status-strings valid-systems build-server-options @@ -1186,6 +1187,9 @@ figure { (@ (class "row")) (div (@ (class "col-sm-12")) + (h3 (a (@ (style "white-space: nowrap;") + (href ,(string-append "/revision/" commit-hash))) + "Revision " (samp ,commit-hash))) (h1 "Builds") (table (@ (class "table"))