show Kodkod warning message even in non-verbose mode
authorblanchet
Tue, 23 Feb 2010 16:53:13 +0100
changeset 35334 b83b9f2a4b92
parent 35333 f61de25f71f9
child 35335 f715cfde056a
show Kodkod warning message even in non-verbose mode
src/HOL/Tools/Nitpick/nitpick.ML
--- a/src/HOL/Tools/Nitpick/nitpick.ML	Tue Feb 23 15:56:13 2010 +0100
+++ b/src/HOL/Tools/Nitpick/nitpick.ML	Tue Feb 23 16:53:13 2010 +0100
@@ -583,7 +583,7 @@
                 o nth problems)
     (* string -> unit *)
     fun show_kodkod_warning "" = ()
-      | show_kodkod_warning s = print_v (fn () => "Kodkod warning: " ^ s ^ ".")
+      | show_kodkod_warning s = print_m (fn () => "Kodkod warning: " ^ s ^ ".")
 
     (* bool -> KK.raw_bound list -> problem_extension -> bool option *)
     fun print_and_check_model genuine bounds