Disk (storage.Storage.Disk)

type 'a t

type location = string

val sexp_of_location : location -> Ppx_sexp_conv_lib.Sexp.t

val location_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> location

module Controller : sig ... end

val load : 
  'a Controller.t ->
  location ->
  ( 'a,
    [> `Checksum_no_match | `IO_error of Core_kernel.Error.t | `No_exist ] )
    Async_kernel.Deferred.Result.t

val load_with_checksum : 
  'a Controller.t ->
  location ->
  ( 'a Checked_data.t,
    [> `Checksum_no_match | `IO_error of Core_kernel.Error.t | `No_exist ] )
    Async_kernel.Deferred.Result.t

val store : 'a Controller.t -> location -> 'a -> unit Async_kernel.Deferred.t

val store_with_checksum : 
  'a Controller.t ->
  location ->
  'a ->
  Core_kernel.Md5.t Async_kernel.Deferred.t