summaryrefslogtreecommitdiff
path: root/src/cry.mli
diff options
context:
space:
mode:
Diffstat (limited to 'src/cry.mli')
-rw-r--r--src/cry.mli15
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