diff options
Diffstat (limited to 'guix-qa-frontpage/server.scm')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index f81265c..5fe66b0 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -35,6 +35,8 @@ #:use-module (guix-qa-frontpage view util) #: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 branch) #:use-module (guix-qa-frontpage view issue) #:export (start-guix-qa-frontpage-web-server)) @@ -62,6 +64,34 @@ (or (handle-static-assets (string-join rest "/") (request-headers request)) (not-found (request-uri request)))) + (('GET "branches") + (let ((branches + (with-sqlite-cache + database + 'branches + (lambda () + (list-branches + (list-branches-url 2))) + #:ttl 60))) + (render-html + #:sxml + (branches-view branches)))) + (('GET "branch" branch) + (let ((derivation-changes + change-details + (with-sqlite-cache + database + 'branch-derivation-changes + branch-derivation-changes + #:args + (list (branch-derivation-changes-url + branch + #:systems %systems-to-submit-builds-for)) + #:ttl 6000))) + (render-html + #:sxml + (branch-view branch + derivation-changes)))) (('GET "patches") (let ((latest-series (with-sqlite-cache |