@@ -32,7 +32,7 @@ pageTitle = dropExtension . takeBaseName
32serveElm fp = do
32serveElm fp = do
33 guard (takeExtension fp == ".elm")
33 guard (takeExtension fp == ".elm")
34 content <- liftIO (readFile (tail fp))
34 content <- liftIO (readFile (tail fp))
35− ok . toResponse $ Elm.toHtml runtime (pageTitle fp) content
35+ length content `seq` (ok . toResponse $ Elm.toHtml runtime (pageTitle fp) content)
37serveLib libLoc fp = do
37serveLib libLoc fp = do
38 guard (fp == runtime)
38 guard (fp == runtime)