blob: 77145903c3785d87fce50ea51395fda7c66b84e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
--- a/src/ppx/ppx_lwt.ml 2025-07-11 18:54:31.821983681 +0200
+++ b/src/ppx/ppx_lwt.ml 2025-07-11 18:57:23.788153921 +0200
@@ -144,12 +144,12 @@
match exns with
| [] ->
let loc = !default_loc in
- [%expr Lwt.bind [%e e] [%e pexp_function ~loc cases]]
+ [%expr Lwt.bind [%e e] [%e pexp_function_cases ~loc cases]]
| _ ->
let loc = !default_loc in
[%expr Lwt.try_bind (fun () -> [%e e])
- [%e pexp_function ~loc cases]
- [%e pexp_function ~loc exns]]
+ [%e pexp_function_cases ~loc cases]
+ [%e pexp_function_cases ~loc exns]]
in
Some (mapper#expression { new_exp with pexp_attributes })
@@ -223,7 +223,7 @@
Lwt.backtrace_catch
(fun exn -> try Lwt.reraise exn with exn -> exn)
(fun () -> [%e expr])
- [%e pexp_function ~loc cases]
+ [%e pexp_function_cases ~loc cases]
]
in
Some (mapper#expression { new_exp with pexp_attributes })
@@ -248,7 +248,7 @@
in
let new_exp =
let loc = !default_loc in
- [%expr Lwt.bind [%e cond] [%e pexp_function ~loc cases]]
+ [%expr Lwt.bind [%e cond] [%e pexp_function_cases ~loc cases]]
in
Some (mapper#expression { new_exp with pexp_attributes })
|
