sig
  type ('a, 'b) t
  val find : ('a, 'b) Eliom_cscache.t -> ('a -> 'b Lwt.t) -> 'a -> 'b Lwt.t
  val do_cache : ('a, 'b) Eliom_cscache.t -> 'a -> 'b -> unit
  val local_find : ('a, 'b) Eliom_cscache.t -> 'a -> 'b Lwt.t
  exception Not_ready
  val find_if_ready : ('a, 'b) Eliom_cscache.t -> 'a -> 'b
  val create : unit -> ('a, 'b) Eliom_cscache.t
end