cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Handle potentially serving assets from the store

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/web/controller.scm
View file

@ -731,11 +731,16 @@
(define (parse-build-status s) (define (parse-build-status s)
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) (define (controller request method-and-path-components mime-types body)
(match method-and-path-components (match method-and-path-components
(('GET "assets" rest ...) (('GET "assets" rest ...)
(or (render-static-asset (string-join rest "/") (or (handle-static-assets (string-join rest "/")
(request-headers request)) (request-headers request))
(not-found (request-uri request)))) (not-found (request-uri request))))
(('GET "healthcheck") (('GET "healthcheck")
(let ((database-status (let ((database-status