Module Model_info.Pricing

module Override : sig ... end

Pricing tier that replaces the base prices once the prompt reaches min_prompt_tokens (e.g. long-context surcharges).

type t = {
  1. prompt : float;
  2. completion : float;
  3. request : float option;
  4. image : float option;
  5. image_token : float option;
  6. image_output : float option;
  7. audio : float option;
  8. audio_output : float option;
  9. input_audio_cache : float option;
  10. internal_reasoning : float option;
  11. input_cache_read : float option;
  12. input_cache_write : float option;
  13. input_cache_write_1h : float option;
  14. discount : float option;
  15. overrides : Override.t list;
}
val overrides : t -> Override.t list
val discount : t -> float option
val input_cache_write_1h : t -> float option
val input_cache_write : t -> float option
val input_cache_read : t -> float option
val internal_reasoning : t -> float option
val input_audio_cache : t -> float option
val audio_output : t -> float option
val audio : t -> float option
val image_output : t -> float option
val image_token : t -> float option
val image : t -> float option
val request : t -> float option
val completion : t -> float
val prompt : t -> float
include Sexplib0.Sexpable.S with type t := t
val t_of_sexp : Sexplib0__.Sexp.t -> t
val sexp_of_t : t -> Sexplib0__.Sexp.t