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 *)
let count_requests inner_handler request =
try%lwt
(inner_handler request) >>= (fun response ->
successful := !successful + 1;
Lwt.return response)
inner_handler request >>= fun response ->
successful := !successful + 1;
Lwt.return response
with exn ->
failed := !failed + 1;
raise exn
let () =
Dream.run
@@ Dream.logger
@@ count_requests
@@ Dream.router [
Dream.get "/"
(fun _ ->
Dream.html "Hello, world!");
Dream.get "/error"
(fun _ ->
failwith "failed on purpose");
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"));
]
Dream.run @@ Dream.logger @@ count_requests
@@ Dream.router
[
Dream.get "/" (fun _ -> Dream.html "Hello, world!");
Dream.get "/error" (fun _ -> failwith "failed on purpose");
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"));
]