Add plain text representation for the page for a single job
Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
parent
60cb07f469
commit
c61a8afd36
3 changed files with 26 additions and 11 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue