[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyGlobals.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyGlobals.ml
diff -u mldonkey/src/networks/donkey/donkeyGlobals.ml:1.54 
mldonkey/src/networks/donkey/donkeyGlobals.ml:1.55
--- mldonkey/src/networks/donkey/donkeyGlobals.ml:1.54  Thu Oct  6 14:03:05 2005
+++ mldonkey/src/networks/donkey/donkeyGlobals.ml       Mon Oct 10 16:22:25 2005
@@ -166,7 +166,7 @@
 (*                                                                       *)
 (*************************************************************************)
 
-module H = Weak2.Make(struct
+module H = Weak.Make(struct
       type t = client
       let hash c = Hashtbl.hash c.client_kind
 
@@ -210,7 +210,7 @@
 
 let file_md4s_to_register = ref ([] : file list)
 
-module UdpClientWHashtbl = Weak2.Make(struct
+module UdpClientWHashtbl = Weak.Make(struct
       type t = udp_client
       let hash c = Hashtbl.hash (c.udp_client_ip, c.udp_client_port)
 
@@ -788,15 +788,15 @@
   Printf.bprintf buf "  join_queue_by_md4: %d\n" (Hashtbl.length 
join_queue_by_md4);
   Printf.bprintf buf "  join_queue_by_id: %d\n" (Hashtbl.length 
join_queue_by_id);
 
-  let list = H.to_list clients_by_kind in
+(*  let list = H.to_list clients_by_kind in *)
   if level > 0 then begin
-    List.iter (fun c ->
+    H.iter (fun c ->
       Printf.bprintf buf "[%d ok: %s rating: %d]\n"
         (client_num c)
         (string_of_date (c.client_source.DonkeySources.source_age))
 (* TODO: add connection state *)
         c.client_rating;
-    ) list;
+    ) clients_by_kind;
   end;
   ()