From 04947e33af6b428b1ca66ccbe7b4cb73b13d5fd2 Mon Sep 17 00:00:00 2001
From: Patrick Ferris <patrick@sirref.org>
Date: Sun, 20 Oct 2024 12:04:43 +0100
Subject: [PATCH] Prepare for 5.2 AST bump

---
 src/syntax/ppx_sedlex.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/syntax/ppx_sedlex.ml b/src/syntax/ppx_sedlex.ml
index 601ac945..f76fe687 100644
--- a/src/syntax/ppx_sedlex.ml
+++ b/src/syntax/ppx_sedlex.ml
@@ -232,7 +232,7 @@ let gen_state (lexbuf_name, lexbuf) auto i (trans, final) =
     [
       value_binding ~loc
         ~pat:(pvar ~loc (state_fun i))
-        ~expr:(pexp_function ~loc [case ~lhs ~guard:None ~rhs:body]);
+        ~expr:(pexp_function_cases ~loc [case ~lhs ~guard:None ~rhs:body]);
     ]
   in
   match best_final final with