Handle potentially serving assets from the store

This commit is contained in:
Christopher Baines 2019-10-06 14:23:15 +01:00
parent eab5a70976
commit dbe171bc75
1 changed files with 7 additions and 2 deletions

View File

@ -731,11 +731,16 @@
(define (parse-build-status s)
s)
(define handle-static-assets
(if assets-dir-in-store?
(static-asset-from-store-renderer)
render-static-asset))
(define (controller request method-and-path-components mime-types body)
(match method-and-path-components
(('GET "assets" rest ...)
(or (render-static-asset (string-join rest "/")
(request-headers request))
(or (handle-static-assets (string-join rest "/")
(request-headers request))
(not-found (request-uri request))))
(('GET "healthcheck")
(let ((database-status