]> matita.cs.unibo.it Git - helm.git/commitdiff
"Warning/error/debug/infos" messages now sent on stderr.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 26 Jan 2007 13:15:56 +0000 (13:15 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Fri, 26 Jan 2007 13:15:56 +0000 (13:15 +0000)
matita/matitaWiki.ml

index 883cf3284fb835cbbcab30afe1764375f3cc7d41..aea67623e5809c90938dcc0112a01b409d11bfe5 100644 (file)
@@ -201,8 +201,8 @@ let main () =
        | `Warning -> "<div style='color:yellow'>Warn: " ^ msg ^ "</div><br/>\n"
        | `Error -> "<div style='color:red'>Error: " ^ msg ^ "</div><br/>\n"
      in
-      output_string stdout s;
-      flush stdout
+      output_string stderr s;
+      flush stderr
    );
   (* must be called after init since args are set by cmdline parsing *)
   let system_mode =  Helm_registry.get_bool "matita.system" in