diff --git a/rcas/web/controller.scm b/rcas/web/controller.scm index 7df3699..d503971 100644 --- a/rcas/web/controller.scm +++ b/rcas/web/controller.scm @@ -27,7 +27,7 @@ (define (controller request body) (match-lambda ((GET) - (render-html index)) + (render-html (index))) ((POST "uploads" ...) (render-json (upload-handler request body))) ((GET "result" id) diff --git a/rcas/web/view/html.scm b/rcas/web/view/html.scm index 911aa36..af68b1d 100644 --- a/rcas/web/view/html.scm +++ b/rcas/web/view/html.scm @@ -123,7 +123,7 @@ (small "RNA Centric Annotation System"))) ,body))) -(define index +(define (index) (layout #:head `(;; The "Fine Uploader" library 5.11.5 taken from here: