Add plain text representation for the page for a single job

Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Danjela Lura 2020-04-20 11:13:13 +02:00 committed by Christopher Baines
parent 60cb07f469
commit c61a8afd36
3 changed files with 26 additions and 11 deletions

View file

@ -44,7 +44,8 @@
(define (request->path-components-and-mime-type request)
(define extensions-to-mime-types
'(("json" . application/json)
("html" . text/html)))
("html" . text/html)
("txt" . text/plain)))
(define (ends-with-recognised-extension? path)
(any (lambda (extension)