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

[mldonkey-commits]

Index: mldonkey/src/networks/bittorrent/bTChooser.ml
diff -u mldonkey/src/networks/bittorrent/bTChooser.ml:1.9 
mldonkey/src/networks/bittorrent/bTChooser.ml:1.10
--- mldonkey/src/networks/bittorrent/bTChooser.ml:1.9   Fri Jul 22 14:32:12 2005
+++ mldonkey/src/networks/bittorrent/bTChooser.ml       Sun Oct 16 20:42:53 2005
@@ -52,7 +52,7 @@
     (*constructs a list of i items max with all
       orl items +  some l items *)
     let orig_num = List.length orl in
-    if orig_num < i && i>0 then
+    if orig_num < i && i > 0 then
       let keep,rest = cut (i - orig_num) l in
       address@hidden,rest
     else
@@ -107,8 +107,14 @@
   (*sort: left to download, then priority*)
   let files = List.stable_sort
     (fun a b -> compare
-          ((file_size a)--(match a.file_swarmer with None -> Int64.of_int 0 | 
Some swarmer -> CommonDownloads.Int64Swarmer.downloaded swarmer))
-          ((file_size b)--(match b.file_swarmer with None -> Int64.of_int 0 | 
Some swarmer -> CommonDownloads.Int64Swarmer.downloaded swarmer))
+          ((file_size a) -- (match a.file_swarmer with 
+                             | None -> Int64.zero 
+                             | Some swarmer -> 
+                                CommonDownloads.Int64Swarmer.downloaded 
swarmer))
+          ((file_size b) -- (match b.file_swarmer with 
+                                        | None -> Int64.zero 
+                                        | Some swarmer -> 
+                                                
CommonDownloads.Int64Swarmer.downloaded swarmer))
         ) files in
   let files = List.stable_sort
        (fun a b -> compare
@@ -163,5 +169,3 @@
         end
     else next_uploaders
   end
-
-