Module Maki__.Maki_storage

Persistent Storage

type 'a or_error = ('a, string) Result.result
type path = string
val error : string ‑> 'a Maki__.Maki_utils.or_error
val errorf : ('a, Format.formatter, unit, 'b Maki__.Maki_utils.or_error) Pervasives.format4 ‑> 'a
module E = Maki__.Maki_lwt_err
type t = {
name : string;
get : string ‑> string option or_error Lwt.t;
set : string ‑> string ‑> unit or_error Lwt.t;
remove : string ‑> unit Lwt.t;
fold : a. f:('a ‑> (string * string) ‑> 'a or_error Lwt.t) ‑> x:'a ‑> 'a or_error Lwt.t;
flush_cache : unit ‑> unit;
}
val env_var_ : string
val name : t ‑> string
val get : t ‑> string ‑> string option or_error Lwt.t
val set : t ‑> string ‑> string ‑> unit or_error Lwt.t
val remove : t ‑> string ‑> unit Lwt.t
val fold : t ‑> f:('a ‑> (string * string) ‑> 'a or_error Lwt.t) ‑> x:'a ‑> 'a or_error Lwt.t
val flush_cache : t ‑> unit
val get_exn : t ‑> string ‑> string option Lwt.t
val set_exn : t ‑> string ‑> string ‑> unit Lwt.t
module Default : sig ... end
val none : t
val default_ : ?⁠dir:path ‑> unit ‑> t
val default : ?⁠dir:path ‑> unit ‑> t Lwt.t
val storage_ : t lazy_t Pervasives.ref
val set_default : t ‑> unit
val get_default : unit ‑> t
val to_list : t ‑> (string * string) list or_error Lwt.t