Source file contract_cache.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
let name = "cache"

exception Exception of string

module type Sig = sig
  (* TODO [jerben] Add a non-optional argument to define time to live *)
  (** [set entry] inserts an [entry] into the cache storage. [entry] is a tuple
      where the first element is the key and the second element is the value.
      Since the value is an optional, [set] can be used to remove a value from
      the store like so: [set ("foo", None)]. If a key exists already, the value
      is overwritten with the provided value. *)
  val set : ?ctx:(string * string) list -> string * string option -> unit Lwt.t

  (** [find key] returns the value that is associated with [key]. *)
  val find : ?ctx:(string * string) list -> string -> string option Lwt.t

  val register : unit -> Core_container.Service.t

  include Core_container.Service.Sig
end