From 6444a022a581924a0ad76904f3265237f8538e47 Mon Sep 17 00:00:00 2001
From: Kaustubh Maske Patil <37668193+nikochiko@users.noreply.github.com>
Date: Thu, 8 May 2025 12:20:40 +0530
Subject: [PATCH] use `>>=` bind syntax

---
 bin/nikodream.ml | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/bin/nikodream.ml b/bin/nikodream.ml
index ad4b989..c3164ce 100644
--- a/bin/nikodream.ml
+++ b/bin/nikodream.ml
@@ -1,3 +1,4 @@
+open Lwt.Infix
 open Lwt.Syntax
 
 let successful = ref 0
@@ -6,9 +7,9 @@ let failed = ref 0
 (* middleware *)
 let count_requests inner_handler request =
   try%lwt
-    let* response = inner_handler request in
-    successful := !successful + 1;
-    Lwt.return response
+    (inner_handler request) >>= (fun response ->
+      successful := !successful + 1;
+      Lwt.return response)
 
   with exn ->
     failed := !failed + 1;
@@ -23,6 +24,10 @@ let () =
       (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));