path: root/lib/protocols/Program.mli

module type PROGRAM = sig
  type t
end

module Make (P : PROGRAM) : sig
  type t

  class type implementation = object
    method invoke : P.t -> (Handle.t, Concepts.Condition.condition) result
  end

  val make : #implementation -> Handle.protocol
  val from : Handle.t -> t Handle.interface option

  val invoke : t Handle.interface -> P.t -> (Handle.t, Concepts.Condition.condition) result
end