aboutsummaryrefslogtreecommitdiffhomepage
path: root/plugins/nsatz/utile.ml
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2017-04-11 01:16:37 +0200
committerGravatar Maxime Dénès <mail@maximedenes.fr>2017-04-11 01:16:37 +0200
commit97f1d0b6ddfce894941d34fc3b3e4c4df0efadd2 (patch)
tree81454b4f7f8b78bbb4376ea38f2777e76ce7252f /plugins/nsatz/utile.ml
parent351b4e0d2d7fa9b1ed853e9d834993ee24a1a130 (diff)
parent9aa27e4554c607ea9bd94c999bf828c2874cf22a (diff)
Merge PR#532: Clean Nsatz implementation.
Diffstat (limited to 'plugins/nsatz/utile.ml')
-rw-r--r--plugins/nsatz/utile.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/nsatz/utile.ml b/plugins/nsatz/utile.ml
index 922432460..d3cfd75e5 100644
--- a/plugins/nsatz/utile.ml
+++ b/plugins/nsatz/utile.ml
@@ -11,8 +11,8 @@ let prt0 s = () (* print_string s;flush(stdout)*)
let prt s =
if !Flags.debug then (print_string (s^"\n");flush(stdout)) else ()
-let info s =
- Flags.if_verbose prerr_string s
+let sinfo s = if !Flags.debug then Feedback.msg_debug (Pp.str s)
+let info s = if !Flags.debug then Feedback.msg_debug (Pp.str (s ()))
(* Lists *)