From 1117d2e4a00debfbfa0157cc3e780916df72c26b Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Tue, 27 Dec 2016 16:06:42 +0000 Subject: New upstream version 8.6 --- helper.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'helper.ml') diff --git a/helper.ml b/helper.ml index 637def1..636b17f 100644 --- a/helper.ml +++ b/helper.ml @@ -29,8 +29,8 @@ module Debug (X : CONTROL) = struct let pr_constr msg constr = if printing then - ( Pp.msgnl (Pp.str (Printf.sprintf "=====%s====" msg)); - Pp.msgnl (Printer.pr_constr constr); + ( Feedback.msg_notice (Pp.str (Printf.sprintf "=====%s====" msg)); + Feedback.msg_notice (Printer.pr_constr constr); ) -- cgit v1.2.3