package ocaml-ai-sdk
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
OCaml AI SDK - Provider abstraction for AI models
Install
dune-project
Dependency
Authors
Maintainers
Sources
ocaml-ai-sdk-0.6.2.tbz
sha256=637f60398f673dfb2e661f6ed7da169b823a870d27b48e729d5b9200e46a52b2
sha512=5aec259473395025edb6689b544e57e821cfbef9352987f95eb2182034979ce898040e06e60a9d89a40a187b77fb5b1b7183c7ec4264da9d9a834864860a5fed
doc/ocaml-ai-sdk.ai_provider/Ai_provider/Http_client/index.html
Module Ai_provider.Http_clientSource
HTTP client wrappers that apply Http_timeouts to cohttp calls.
These are the defence-in-depth layer around Cohttp_lwt_unix.Client.post and the response body stream. All provider implementations should use these instead of raw cohttp calls.
Source
val post :
timeouts:Http_timeouts.t ->
provider:string ->
headers:Cohttp.Header.t ->
body:Cohttp_lwt.Body.t ->
Uri.t ->
(Cohttp.Response.t * Cohttp_lwt.Body.t) Lwt.tWraps Cohttp_lwt_unix.Client.post in Lwt_unix.with_timeout using timeouts.request_timeout. On expiry, fails with Provider_error.Provider_error (Timeout { phase = Request_headers; ... }) tagged with the given provider string.
Source
val wrap_body_with_idle_timeout :
timeouts:Http_timeouts.t ->
provider:string ->
Cohttp_lwt.Body.t ->
string Lwt_stream.tConverts a cohttp body into a line stream (splits on LF, strips CR), with an inter-chunk idle timer from timeouts.stream_idle_timeout. The returned stream:
- Emits one line per LF-terminated segment.
- Flushes any trailing buffered data on normal end-of-stream.
- Is cleanly closed (consumers see end-of-stream) on idle timeout, body-stream exception, or normal completion — no consumer will hang.
- On exception, the original exception is re-raised to
Lwt.async_exception_hookafter the stream is closed, so bugs stay visible in logs. - On abnormal termination (idle timeout or body-stream exception), the upstream cohttp body is drained so its socket is released.
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>