diff --git a/src/res_printer.ml b/src/res_printer.ml
index 19f3ee95..a7552c83 100644
--- a/src/res_printer.ml
+++ b/src/res_printer.ml
@@ -5401,6 +5401,7 @@ and printExtensionConstructor ~customLayout
 let printTypeParams = printTypeParams ~customLayout:0
 let printTypExpr = printTypExpr ~customLayout:0
 let printExpression = printExpression ~customLayout:0
+let printPattern = printPattern ~customLayout:0
 
 let printImplementation ~width (s : Parsetree.structure) ~comments =
   let cmtTbl = CommentTable.make () in
diff --git a/src/res_printer.mli b/src/res_printer.mli
index 267ae091..2f854ef6 100644
--- a/src/res_printer.mli
+++ b/src/res_printer.mli
@@ -14,6 +14,9 @@ val addParens : Res_doc.t -> Res_doc.t
 
 val printExpression : Parsetree.expression -> Res_comments_table.t -> Res_doc.t
 
+val printPattern : Parsetree.pattern -> Res_comments_table.t -> Res_doc.t
+  [@@live]
+
 val printStructure : Parsetree.structure -> Res_comments_table.t -> Res_doc.t
   [@@live]