sig
  module Infix :
    sig
      val ( |> ) : 'a -> ('a -> 'b) -> 'b
      val ( -| ) : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b
      val ( |- ) : ('a -> 'b) -> ('b -> 'c) -> 'a -> 'c
    end
  val is_weak_etag : string -> bool
  val etag_option : string -> string option
  val merge_query_string : (string * string) list -> string -> string
  val add_path_to_url : ?encoded:bool -> string list -> string -> string
  val string_after_char : char -> string -> string
  val string_before_char : char -> string -> string
  val wait_exponential_backoff : int -> unit
  class bigarray_out_obj_channel :
    (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t ->
    Netchannels.out_obj_channel
  class bigarray_in_obj_channel :
    (char, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t ->
    Netchannels.in_obj_channel
end