···
(** Roles for conversation participants *)
type t = [ `User | `Assistant ]
-
val to_string : t -> string
-
val of_string : string -> t
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
(** Progress tokens for long-running operations *)
module ProgressToken : sig
type t = [ `String of string | `Int of int ]
include Json.Jsonable.S with type t := t
type t = [ `String of string | `Int of int ]
include Json.Jsonable.S with type t := t
(** Cursors for pagination *)
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
(** Annotations for objects *)
···
audience: Role.t list option;
-
val yojson_of_annotation : annotation -> Json.t
-
val annotation_of_yojson : Json.t -> annotation
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
···
annotations: Annotated.annotation option;
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
···
annotations: Annotated.annotation option;
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
···
annotations: Annotated.annotation option;
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
(** Base resource contents *)
···
mime_type: string option;
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
(** Text resource contents *)
···
mime_type: string option;
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
(** Binary resource contents *)
···
mime_type: string option;
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
···
resource: [ `Text of TextResourceContents.t | `Blob of BlobResourceContents.t ];
annotations: Annotated.annotation option;
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
(** Content type used in messages *)
···
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
(** Message for sampling *)
···
content: [ `Text of TextContent.t | `Image of ImageContent.t | `Audio of AudioContent.t ];
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
(** Implementation information *)
···
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
(** JSONRPC message types *)
···
client_info: Implementation.t;
protocol_version: string;
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
val create : capabilities:Json.t -> client_info:Implementation.t -> protocol_version:string -> t
val to_jsonrpc : id:RequestId.t -> t -> JSONRPCMessage.t
···
instructions: string option;
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
val create : capabilities:Json.t -> server_info:Implementation.t -> protocol_version:string -> ?instructions:string -> ?meta:Json.t -> unit -> t
val to_jsonrpc : id:RequestId.t -> t -> JSONRPCMessage.t
···
-
val yojson_of_t : t -> Json.t
-
val t_of_yojson : Json.t -> t
val create : ?meta:Json.t -> unit -> t
val to_jsonrpc : t -> JSONRPCMessage.t
anil.recoil.org