[Unison-hackers] ipv6 support

[Samuel Thibault]

Benjamin Pierce, le Tue 26 Jul 2005 11:04:21 -0600, a écrit :
> One other point that might need to be cleaned up is that the uigtk  
> interface has been patched here but not the uigtk2 interface -- will  
> changes be needed there too?

Oh, indeed, here is the addition.

Regards,
Samuel
-------------- next part --------------
Index: uigtk2.ml
===================================================================
--- uigtk2.ml	(révision 94)
+++ uigtk2.ml	(copie de travail)
@@ -769,21 +769,17 @@
       `Local ->
         Clroot.clroot2string(Clroot.ConnectLocal(Some file))
     | `SSH | `RSH ->
-        let portOpt =
-          (* FIX: report an error if the port entry is not well formed *)
-          try Some(int_of_string(portE#text))
-          with _ -> None in
         Clroot.clroot2string(
         Clroot.ConnectByShell((if !varLocalRemote=`SSH then "ssh" else "rsh"),
                               host,
                               (if user="" then None else Some user),
-                              portOpt,
+                              Some portE#text,
                               Some file))
     | `SOCKET ->
         Clroot.clroot2string(
         (* FIX: report an error if the port entry is not well formed *)
         Clroot.ConnectBySocket(host,
-                               int_of_string(portE#text),
+                               portE#text,
                                Some file)) in
   let contCommand() =
     try