diff options
Diffstat (limited to 'helper.ml')
-rw-r--r-- | helper.ml | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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); ) |