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.tbz
sha256=44e7f6ebef6da2828ec2844dd5b38c8f37284c08e54a29e06f6a8822df6f8e10
sha512=ce31d0868abf28bcaef7b24a0ab09b37dcfc94db3de96b38ff36a03800ae59a19e8009a35314f93191b3c8f178c40f8569630d4389f56ddc2f2cc94fb7bffc3c
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)"
>