Key_cache_async (key_cache.Key_cache

include Key_cache.Async

type (!'a, !'b) t = ( 'a, 'b ) Key_cache.T(Async_kernel.Deferred.Or_error).t = {

write : 'a -> 'b -> unit Async_kernel.Deferred.Or_error.t;

read : 'a -> 'b Async_kernel.Deferred.Or_error.t;

}

module Disk_storable : sig ... end

val read : 
  Key_cache.Spec.t list ->
  ( 'k, 'v ) Disk_storable.t ->
  'k ->
  ('v * [> `Cache_hit | `Locally_generated ]) Async_kernel.Deferred.Or_error.t

val write : 
  Key_cache.Spec.t list ->
  ( 'k, 'v ) Disk_storable.t ->
  'k ->
  'v ->
  unit Async_kernel.Deferred.Or_error.t