Module RPC_server.Media

type medias = {
  1. media_types : Media_type.t list;
  2. default_media_type : string * Media_type.t;
}
val default_media_type : Media_type.t list -> string * Media_type.t
val input_media_type : ?headers:Cohttp.Header.t -> medias -> (Media_type.t, [> `Unsupported_media_type of string ]) Stdlib.result
val output_content_media_type : ?headers:Cohttp.Header.t -> medias -> (string * Media_type.t, [> `Not_acceptable ]) Stdlib.Result.t