diff options
Diffstat (limited to 'src/cry.mli')
-rw-r--r-- | src/cry.mli | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/src/cry.mli b/src/cry.mli index 3b041db..c33db28 100644 --- a/src/cry.mli +++ b/src/cry.mli @@ -48,7 +48,13 @@ and transport = < name : string ; protocol : string ; default_port : int - ; connect : ?bind_address:string -> ?timeout:float -> string -> int -> socket > + ; connect : + ?bind_address:string -> + ?timeout:float -> + ?prefer:[ `System_default | `Ipv4 | `Ipv6 ] -> + string -> + int -> + socket > (** Possible errors. *) type error = @@ -70,7 +76,12 @@ exception Timeout (** Base unix connect *) val unix_connect : - ?bind_address:string -> ?timeout:float -> string -> int -> Unix.file_descr + ?bind_address:string -> + ?timeout:float -> + ?prefer:[ `System_default | `Ipv4 | `Ipv6 ] -> + string -> + int -> + Unix.file_descr (** Unix transport and socket. *) val unix_transport : transport |