From d985019fe1a95187d029e476b69da24a749aa7b1 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Fri, 7 Apr 2023 12:27:55 -0400 Subject: [PATCH] compat 4.03 --- tests/core/t_parse.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/core/t_parse.ml b/tests/core/t_parse.ml index 102fe132..d5f96df6 100644 --- a/tests/core/t_parse.ml +++ b/tests/core/t_parse.ml @@ -294,7 +294,7 @@ eq (Ok (("!this is the text between!", "LOL"), " and a lot of other stuff")) (parse_string (string "COUCOU" - *> let* slice, x = take_until_success (string "LOL") in - let+ rest = take_if (fun _ -> true) <* eoi in - (Slice.to_string slice, x), Slice.to_string rest) + *> ( take_until_success (string "LOL") >>= fun (slice, x) -> + take_if (fun _ -> true) <* eoi >|= fun rest -> + (Slice.to_string slice, x), Slice.to_string rest )) "COUCOU!this is the text between!LOL and a lot of other stuff")