1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
module type S = sig
type t
type error
val pp_error : Format.formatter -> error -> unit
val page_size : t -> int
val n_pages : t -> int64
val read_page : t -> page_id:int64 -> Cstruct.t -> (unit, error) result Lwt.t
val write_page : t -> page_id:int64 -> Cstruct.t -> (unit, error) result Lwt.t
val sync : t -> (unit, error) result Lwt.t
val resize : t -> n_pages:int64 -> (unit, error) result Lwt.t
end
[@@@ai_disclosure "ai-generated"]
[@@@ai_model "claude-opus-4-7"]
[@@@ai_provider "Anthropic"]