[Mldonkey-commits] Changes to mldonkey/src/utils/net/http_server.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/http_server.ml
diff -u mldonkey/src/utils/net/http_server.ml:1.24 
mldonkey/src/utils/net/http_server.ml:1.25
--- mldonkey/src/utils/net/http_server.ml:1.24  Mon Oct 10 17:35:28 2005
+++ mldonkey/src/utils/net/http_server.ml       Sun Oct 16 20:42:55 2005
@@ -904,9 +904,9 @@
     x, None, _ -> x, None
   | x, Some y, Some z ->
       if y = z then (* some vendor bug *)
-        x -- Int64.one, Some y
+        Int64.pred x, Some y
       else
-        x, Some (y ++ Int64.one)
+        x, Some (Int64.succ y)
   | x, Some y, None ->
-      x, Some (y ++ Int64.one)
+      x, Some (Int64.succ y)