diff options
| author | polwex <polwex@sortug.com> | 2025-06-14 23:30:34 +0700 |
|---|---|---|
| committer | polwex <polwex@sortug.com> | 2025-06-14 23:30:34 +0700 |
| commit | d8b3e15bec60f58defad13e961f80354d250235d (patch) | |
| tree | 6a6f9158141bf40ea452a5913d72160362e0c472 /bs5/server/server.ml | |
aaaaaa
Diffstat (limited to 'bs5/server/server.ml')
| -rw-r--r-- | bs5/server/server.ml | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/bs5/server/server.ml b/bs5/server/server.ml new file mode 100644 index 0000000..40834b9 --- /dev/null +++ b/bs5/server/server.ml @@ -0,0 +1,24 @@ +(* TODO *) +(* Dream.origin_referrer_check *) +let router = + Dream.router + ([ + Dream.get "/root" (fun _ -> Dream.html "Roooot"); + Dream.get "/login" (fun _ -> Dream.html "Welcome"); + Dream.get "/blog/:poast" (fun req -> + Dream.html (Dream.param req "poast")); + Dream.get "/react" (fun _ -> Dream.html "Welcome"); + Dream.get "/fail" (fun _ -> raise (Failure "Oh noes")); + Dream.post "/echo" (fun req -> + let%lwt body = Dream.body req in + Dream.respond ~headers:[ ("Content-Type", "application/json") ] body); + (* Dream.get "/" Pages. *) + ] + @ Api.Json.routes @ Api.Stream.streams) + +let server = + Dream.logger @@ Middleware.Logs.detailed_logger + @@ Middleware.Promise.count_requests + @@ Middleware.Counter.count_requests router + +let () = Dream.run server |