Key_cache_async.Disk_storable
type (!'k, !'v) t = ( 'k, 'v ) Key_cache.Disk_storable(Async_kernel.Deferred.Or_error).t = {
to_string : 'k -> string;
read : 'k -> path:string -> 'v Async_kernel.Deferred.Or_error.t;
write : 'k -> 'v -> string -> unit Async_kernel.Deferred.Or_error.t;
}
val of_binable : ( 'k -> string ) -> (module Core_kernel.Binable.S with type t = 'v) -> ( 'k, 'v ) t
val simple : ( 'k -> string ) -> ( 'k -> path:string -> 'v Async_kernel.Deferred.Or_error.t ) -> ( 'k -> 'v -> string -> unit Async_kernel.Deferred.Or_error.t ) -> ( 'k, 'v ) t