From 99c978cb5746357f36f2159a71a1cb254aafee10 Mon Sep 17 00:00:00 2001
From: pedrobslisboa <pedrobslisboa@gmail.com>
Date: Tue, 24 Sep 2024 18:08:57 -0300
Subject: [PATCH] add sprint to pprintast

Signed-off-by: pedrobslisboa <pedrobslisboa@gmail.com>
---
 src/ppxlib.ml | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/ppxlib.ml b/src/ppxlib.ml
index c7a9193b..30734e5c 100644
--- a/src/ppxlib.ml
+++ b/src/ppxlib.ml
@@ -62,7 +62,14 @@ module Ast_helper = Ppxlib_ast.Ast_helper
 module Asttypes = Ppxlib_ast.Asttypes
 module Parse = Ppxlib_ast.Parse
 module Parsetree = Ppxlib_ast.Parsetree
-module Pprintast = Ppxlib_ast.Pprintast
+
+module Pprintast = struct
+  include Ppxlib_ast.Pprintast
+  module Kind = Pp_ast.Kind
+
+  let sprint = Pp_ast.sprint
+end
+
 module Selected_ast = Ppxlib_ast.Selected_ast
 module Location = Location
 module Longident = Longident