Source file `language_model.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module type S = sig
  val specification_version : string
  val provider : string
  val model_id : string
  val generate : Call_options.t -> Generate_result.t Lwt.t
  val stream : Call_options.t -> Stream_result.t Lwt.t
end

type t = (module S)

let generate (module M : S) opts = M.generate opts
let stream (module M : S) opts = M.stream opts
let provider (module M : S) = M.provider
let model_id (module M : S) = M.model_id
let specification_version (module M : S) = M.specification_version