diff options
author | Christopher Baines <mail@cbaines.net> | 2023-05-24 17:15:11 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-05-24 17:15:11 +0100 |
commit | 5b5281e4a02c6d3e9070a1379b902216a77f7b82 (patch) | |
tree | 785a6e6c3f167a32ea67418b7ec772605895b5e0 /guix-qa-frontpage/server.scm | |
parent | bf97d9f7615df9f736f27ae06e271a7d4113c33b (diff) | |
download | qa-frontpage-5b5281e4a02c6d3e9070a1379b902216a77f7b82.tar qa-frontpage-5b5281e4a02c6d3e9070a1379b902216a77f7b82.tar.gz |
Show a table of branches on the homepage
Diffstat (limited to 'guix-qa-frontpage/server.scm')
-rw-r--r-- | guix-qa-frontpage/server.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index d77b646..5626eb5 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -76,8 +76,14 @@ (match method-and-path-components (('GET) - (render-html - #:sxml (home))) + (let ((branches + (with-sqlite-cache + database + 'list-non-master-branches + list-non-master-branches + #:ttl 0))) + (render-html + #:sxml (home branches)))) (('GET "assets" rest ...) (or (handle-static-assets (string-join rest "/") (request-headers request)) |