[Mldonkey-commits] Changes to mldonkey/src/networks/bittorrent/bTTracker.ml

[mldonkey-commits]

Index: mldonkey/src/networks/bittorrent/bTTracker.ml
diff -u mldonkey/src/networks/bittorrent/bTTracker.ml:1.19 
mldonkey/src/networks/bittorrent/bTTracker.ml:1.20
--- mldonkey/src/networks/bittorrent/bTTracker.ml:1.19  Sat Sep 17 17:59:46 2005
+++ mldonkey/src/networks/bittorrent/bTTracker.ml       Sun Oct 16 20:42:54 2005
@@ -142,7 +142,7 @@
 
 let void_message = Bencode.encode (
     Dictionary [
-      String "interval", Int (Int64.of_int 600);
+      String "interval", Int 600L;
       String "peers", List []
     ])
 
@@ -260,8 +260,8 @@
 
           let message =
             Dictionary [
-              String "interval", Int (Int64.of_int 600);
-              String "min interval", Int (Int64.of_int 600);
+              String "interval", Int 600L;
+              String "min interval", Int 600L;
               String "peers", List
                 (List.map (fun p ->
                     if no_peer_id = 1 then