mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2026-08-24 06:48:18 -07:00
37 lines
1.4 KiB
Diff
37 lines
1.4 KiB
Diff
--- 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 })
|
|
|