From 5ecfeb9a446894c86f67d0c1e76da17583027486 Mon Sep 17 00:00:00 2001 From: Amirali Esmaeili Date: Sat, 2 Jul 2022 01:55:57 +0430 Subject: [PATCH 1/2] Expose printPattern --- src/res_printer.ml | 1 + src/res_printer.mli | 2 ++ 2 files changed, 3 insertions(+) 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..43ef8871 100644 --- a/src/res_printer.mli +++ b/src/res_printer.mli @@ -14,6 +14,8 @@ 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 + val printStructure : Parsetree.structure -> Res_comments_table.t -> Res_doc.t [@@live] From d5eb2e8214fda21bdfe263165d63f5840e9be76d Mon Sep 17 00:00:00 2001 From: Amirali Esmaeili Date: Sat, 2 Jul 2022 12:04:41 +0430 Subject: [PATCH 2/2] Make printPattern live --- src/res_printer.mli | 1 + 1 file changed, 1 insertion(+) diff --git a/src/res_printer.mli b/src/res_printer.mli index 43ef8871..2f854ef6 100644 --- a/src/res_printer.mli +++ b/src/res_printer.mli @@ -15,6 +15,7 @@ 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]