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

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonChat.ml
diff -u mldonkey/src/daemon/common/commonChat.ml:1.6 
mldonkey/src/daemon/common/commonChat.ml:1.7
--- mldonkey/src/daemon/common/commonChat.ml:1.6        Fri Jul 22 10:58:54 2005
+++ mldonkey/src/daemon/common/commonChat.ml    Fri Jul 22 14:32:12 2005
@@ -30,7 +30,7 @@
 let send_paquet_to_mlchat (p : C.packet) =
   let domain = Unix.PF_INET in
   let sock = Unix.socket domain Unix.SOCK_STREAM 0 in
-  let inet_addr = 
+  let inet_addr =
     let host = !!O.chat_app_host in
     try Unix.inet_addr_of_string host
     with _ ->
@@ -62,7 +62,7 @@
 let send_chat_proto name ad_opt m =
   let ad =
     match ad_opt with
-      None -> 
+      None ->
        (* utiliser le port de chat et l'hostname du core donkey *)
        (Unix.gethostname (), !!O.chat_port)
     | Some ad -> ad
@@ -75,7 +75,7 @@
   send_chat_proto name ad_opt (C.Message s)
 
 let send_add_open name ad_opt =
-  let ad = 
+  let ad =
     match ad_opt with
       None -> (Unix.gethostname (), !!O.chat_port)
     | Some ad -> ad