summaryrefslogtreecommitdiff
path: root/helper.ml
diff options
context:
space:
mode:
Diffstat (limited to 'helper.ml')
-rw-r--r--helper.ml4
1 files changed, 2 insertions, 2 deletions
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);
)