# HG changeset patch
# User boehmes
# Date 1300872089 -3600
# Node ID d3404f32328a1f91dfdc884f1a329cb14b7eb2e4
# Parent  6a147393c62a65a2a6551b0fd1c650bb10622c4e
really be quiet

diff -r 6a147393c62a -r d3404f32328a src/HOL/Mirabelle/lib/scripts/mirabelle.pl
--- a/src/HOL/Mirabelle/lib/scripts/mirabelle.pl	Wed Mar 23 09:15:49 2011 +0100
+++ b/src/HOL/Mirabelle/lib/scripts/mirabelle.pl	Wed Mar 23 10:21:29 2011 +0100
@@ -127,16 +127,18 @@
 close(LOG_FILE);
 
 my $quiet = "";
+my $output_log = 1;
 if (defined $be_quiet and $be_quiet ne "") {
   $quiet = " > /dev/null 2>&1";
+  $output_log = 0;
 }
 
-print "Mirabelle: $thy_file\n" if ($quiet ne "");
+if ($output_log) { print "Mirabelle: $thy_file\n"; }
 
 my $result = system "\"$ENV{'ISABELLE_PROCESS'}\" " .
   "-e 'use_thy \"$path/$new_thy_name\" handle _ => exit 1;\n' -q $mirabelle_logic" . $quiet;
 
-print "Finished:  $thy_file\n" if ($quiet ne "");
+if ($output_log) { print "Finished:  $thy_file\n"; }
 
 
 # cleanup