diff options
| -rw-r--r-- | Makefile.am | 1 | ||||
| -rw-r--r-- | guix-dev.scm | 1 | ||||
| -rw-r--r-- | guix-qa-frontpage/server.scm | 10 | ||||
| -rw-r--r-- | guix-qa-frontpage/view/issue.scm | 10 |
4 files changed, 20 insertions, 2 deletions
diff --git a/Makefile.am b/Makefile.am index 5ab92c9..cbf3a46 100644 --- a/Makefile.am +++ b/Makefile.am @@ -33,6 +33,7 @@ SOURCES = \ guix-qa-frontpage/patchwork.scm \ guix-qa-frontpage/guix-data-service.scm \ guix-qa-frontpage/issue.scm \ + guix-qa-frontpage/mumi.scm \ guix-qa-frontpage/derivation-changes.scm \ guix-qa-frontpage/manage-builds.scm \ guix-qa-frontpage/view/util.scm \ diff --git a/guix-dev.scm b/guix-dev.scm index 7334eda..4d0bd2f 100644 --- a/guix-dev.scm +++ b/guix-dev.scm @@ -52,6 +52,7 @@ guix-data-service guile-json-4 guile-fibers-1.1 + guile-kolam guile-readline guile-prometheus guix-build-coordinator diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 1f85f99..6f4921f 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -33,6 +33,7 @@ #:use-module ((guix-build-coordinator utils) #:select (get-gc-metrics-updater)) #:use-module (guix-qa-frontpage database) #:use-module (guix-qa-frontpage patchwork) + #:use-module (guix-qa-frontpage mumi) #:use-module (guix-qa-frontpage issue) #:use-module (guix-qa-frontpage manage-builds) #:use-module (guix-qa-frontpage guix-data-service) @@ -148,7 +149,13 @@ 'latest-patchwork-series-by-issue latest-patchwork-series-by-issue #:ttl 1200) - (string->number number)))) + (string->number number))) + (mumi-tags (with-sqlite-cache + database + 'mumi-issue-tags + mumi-issue-tags + #:args (list number) + #:ttl 60))) (if series (let ((derivation-changes change-details @@ -183,6 +190,7 @@ (render-html #:sxml (issue-view number series + mumi-tags derivation-changes change-details comparison-details))) diff --git a/guix-qa-frontpage/view/issue.scm b/guix-qa-frontpage/view/issue.scm index 0040d59..01ebdac 100644 --- a/guix-qa-frontpage/view/issue.scm +++ b/guix-qa-frontpage/view/issue.scm @@ -6,7 +6,8 @@ #:use-module (guix-qa-frontpage view util) #:export (issue-view)) -(define (issue-view issue-number series derivation-changes +(define (issue-view issue-number series mumi-tags + derivation-changes change-details comparison-details) (define comparison-link @@ -79,6 +80,13 @@ td.bad { `(li ,(assoc-ref patch "name"))) (assoc-ref series "patches"))) + "Tags" + (ul + ,@(map + (lambda (tag) + `(li ,tag)) + mumi-tags)) + (div (table (thead |