diff options
Diffstat (limited to 'bs5/server/server.ml')
| -rw-r--r-- | bs5/server/server.ml | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/bs5/server/server.ml b/bs5/server/server.ml index c7c18e9..a58abc5 100644 --- a/bs5/server/server.ml +++ b/bs5/server/server.ml @@ -13,11 +13,12 @@ let router = ([ (* rendering tricks *) Dream.get "/output.css" - (Dream.from_filesystem "./_build/default/demo" "output.css"); - Dream.get "/static/**" (Dream.static "./_build/default/client/app"); + (Dream.from_filesystem "./_build/default" "output.css"); + Dream.get "/static/**" + (Dream.static "./_build/default/client/app/client"); getAndPost Router.demoRenderToString (fun _ -> Dream.html Pages.Hydrate.toString); - getAndPost Router.demoRenderToString (fun _ -> + getAndPost Router.demoRenderToStaticMarkup (fun _ -> Dream.html Pages.Hydrate.toStatic); (* more demos *) getAndPost Router.demoRenderToStream Pages.Comments.handler; @@ -34,7 +35,7 @@ let router = Dream.post "/echo" (fun req -> let%lwt body = Dream.body req in Dream.respond ~headers:[ ("Content-Type", "application/json") ] body); - Dream.get "/" Pages.Index.handler; + Dream.get "/" Pages.Home.handler; ] @ Api.Json.routes @ Api.Stream.streams) |