diff options
Diffstat (limited to 'guix-qa-frontpage/server.scm')
-rw-r--r-- | guix-qa-frontpage/server.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 1216ed6..9677aea 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -51,6 +51,7 @@ #:use-module (guix-qa-frontpage mumi) #:use-module (guix-qa-frontpage debbugs) #:use-module (guix-qa-frontpage branch) + #:use-module (guix-qa-frontpage package) #:use-module (guix-qa-frontpage issue) #:use-module (guix-qa-frontpage git-repository) #:use-module (guix-qa-frontpage manage-builds) @@ -60,6 +61,7 @@ #:use-module (guix-qa-frontpage view home) #:use-module (guix-qa-frontpage view patches) #:use-module (guix-qa-frontpage view branches) + #:use-module (guix-qa-frontpage view package) #:use-module (guix-qa-frontpage view branch) #:use-module (guix-qa-frontpage view issue) #:use-module (guix-qa-frontpage view reproducible-builds) @@ -725,6 +727,17 @@ has no patches or has been closed.") (reproducible-builds-view package-reproducibility issue-data)))) + (('GET "package" name) + (let ((package-data + (with-sqlite-cache + database + 'package-data + package-data + #:ttl 3000 + #:args (list name)))) + (render-html + #:sxml (package-view package-data)))) + (('GET "README") (let ((filename (string-append doc-dir "/README.html"))) (if (file-exists? filename) |