Module Dropbox_json.Video

type info = {
time_taken : Date.t option;
duration : float option;
lat_long : (float * float) option;
}
type t = [
| `None
| `Pending
| `Some of info
]
val set_info : Date.t option Stdlib.ref -> float option Stdlib.ref -> (float * float) option Stdlib.ref -> (string * [> `Float of float | `Int of int | `List of [> `Float of float | `Int of int ] list | `String of string | `Tuple of [> `Float of float | `Int of int ] list ]) -> unit
val wrap : Yojson.Safe.t -> t
val unwrap : t -> Yojson.Safe.t