Build index page lazily.

BIMSBbioinfo · Oct 12, 2016 · 7a99f65 · 7a99f65
1 parent e4ec348
commit 7a99f65
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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: