include Sihl.Contract.Storage
type file
=
{
id : string; |
filename : string; |
filesize : int; |
mime : string; |
}
type stored
=
{
file : file; |
blob : string; |
}
val name : string
exception
Exception of string
module type Sig = sig ... end
val file_to_sexp : file -> Sexplib0.Sexp.t
val pp_file : Stdlib.Format.formatter -> file -> unit
val set_mime : string -> file -> file
val set_filesize : int -> file -> file
val set_filename : string -> file -> file
val set_mime_stored : string -> stored -> stored
val set_filesize_stored : int -> stored -> stored
val set_filename_stored : string -> stored -> stored
val stored_to_sexp : stored -> Sexplib0.Sexp.t
val pp_stored : Stdlib.Format.formatter -> stored -> unit
val log_src : Logs.src