diff options
| author | polwex <polwex@sortug.com> | 2025-06-22 14:32:59 +0700 |
|---|---|---|
| committer | polwex <polwex@sortug.com> | 2025-06-22 14:32:59 +0700 |
| commit | 20cc3637c7268ceb8ca18ce55027ad8584e1cfd8 (patch) | |
| tree | 343b364da65444e96c7e986c13c9faba1f853102 /bs5/server/server.ml | |
| parent | 71c20233ff79e696d0eeca2ce1462d3083fbcfed (diff) | |
checkpoint
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) |