kaustubh/nikodream
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

run formatter

Browse Source
This commit is contained in:
Kaustubh Maske Patil 2025-05-08 12:23:08 +05:30
parent 6444a022a5
commit 2a70699243
1 changed files with 15 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
bin/nikodream.ml
View File

@ -7,32 +7,23 @@ let failed = ref 0
(* middleware *) (* middleware *)
let count_requests inner_handler request = let count_requests inner_handler request =
try%lwt try%lwt
(inner_handler request) >>= (fun response -> inner_handler request >>= fun response ->
successful := !successful + 1; successful := !successful + 1;
Lwt.return response) Lwt.return response
with exn -> with exn ->
failed := !failed + 1; failed := !failed + 1;
raise exn raise exn
let () = let () =
Dream.run Dream.run @@ Dream.logger @@ count_requests
@@ Dream.logger @@ Dream.router
@@ count_requests [
@@ Dream.router [ Dream.get "/" (fun _ -> Dream.html "Hello, world!");
Dream.get "/" Dream.get "/error" (fun _ -> failwith "failed on purpose");
(fun _ -> Dream.get "/count" (fun _ ->
Dream.html "Hello, world!"); Dream.html
(Printf.sprintf "%3i successful requests<br>%3i failed requests"
Dream.get "/error" !successful !failed));
(fun _ -> Dream.get "/echo/:word" (fun request ->
failwith "failed on purpose"); Dream.html (Dream.param request "word"));
]
Dream.get "/count"
(fun _ ->
Dream.html (Printf.sprintf "%3i successful requests<br>%3i failed requests" !successful !failed));
Dream.get "/echo/:word"
(fun request ->
Dream.html (Dream.param request "word"));
]