[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonTypes.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonTypes.ml
diff -u mldonkey/src/daemon/common/commonTypes.ml:1.43 
mldonkey/src/daemon/common/commonTypes.ml:1.44
--- mldonkey/src/daemon/common/commonTypes.ml:1.43      Mon Nov  7 20:11:42 2005
+++ mldonkey/src/daemon/common/commonTypes.ml   Sat Nov 19 17:19:45 2005
@@ -18,6 +18,7 @@
 *)
 
 open Options
+open Printf2
 open Md4 
 
 type activity = {
@@ -674,13 +675,12 @@
 
 let print_ogg_infos ogg_infos =
   List.iter (fun stream ->
-    Printf.printf "-== %s info - stream number: %d ==-\n"
+    lprintf "-== %s info - stream number: %d ==-\n"
       (stream_type_to_string stream.stream_type) stream.stream_no;
     List.iter (fun tag ->
-      Printf.printf "  %s\n" (ogg_tag_to_string tag)
+      lprintf "  %s\n" (ogg_tag_to_string tag)
     ) stream.stream_tags
-  ) !ogg_infos;
-  flush stdout
+  ) !ogg_infos
 
 type format =
   AVI of avi_info