From dbe171bc750eee4d6b85e220e03466fc4d7b851f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 6 Oct 2019 14:23:15 +0100 Subject: Handle potentially serving assets from the store --- guix-data-service/web/controller.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 13b315d..e028e2a 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -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 -- cgit v1.2.3