Don't catch Lwt.Canceled exceptions in read

robur-coop · Jan 17, 2025 · e0d8924 · e0d8924
1 parent 023b882
commit e0d8924
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/app/server.ml b/app/server.ml
@@ -22,7 +22,9 @@ let read fd =
       let b = Bytes.create l_int in
       r b l_int >|= fun () ->
       Bytes.unsafe_to_string b)
-    (fun e ->
+    (function
+      | Lwt.Canceled as e -> Lwt.reraise e
+      | e ->
        Logs.err (fun m -> m "Error while reading: %s" (Printexc.to_string e));
        Lwt.return (Error (`Msg "error in read")))