diff options
| -rw-r--r-- | guix-data-service/web/controller.scm | 9 |
1 files 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 |