Module `Jsonrpc2_sync.IO`

type 'a t = 'a IO_sync.t

val return : 'a -> 'a t

module Infix : sig ... end

val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
val (>|=) : 'a t -> ('a -> 'b) -> 'b t

module Future : sig ... end

type lock = IO_sync.lock

val create_lock : unit -> lock
val with_lock : lock -> (unit -> 'a t) -> 'a t

type in_channel = IO_sync.in_channel
type out_channel = IO_sync.out_channel

val read_line : in_channel -> (string, exn) Pervasives.result t
val read_exact : in_channel -> bytes -> int -> (unit, exn) Pervasives.result t
val write_string : out_channel -> string -> (unit, exn) Pervasives.result t