guix/maintenance
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/maintenance.git synced 2023-12-14 03:33:04 +01:00
Code Issues Releases Wiki Activity

hydra/goggles: Add channel-files.

Browse source 
* hydra/goggles.scm (channel-files): New procedure.
This commit is contained in:
Ricardo Wurmus 2020-04-23 18:58:01 +02:00
parent 60aba43012
commit a852c55272
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
hydra/goggles.scm
View file

@ -29,6 +29,11 @@
("ttf" . (application/octet-stream))
("html" . (text/html))))
(define (channel-files channel)
(reverse (scandir (string-append %log-root "/#" channel "/")
(lambda (name)
(not (member name '("." ".." "index.html")))))))
(define (render-html sxml)
(list '((content-type . (text/html)))
(lambda (port)