Dropbox_json.Photo
type info
=
{
time_taken : Date.t option;
lat_long : (float * float) option;
}
type t
[
|
`None
`Pending
`Some of info
]
val set_info : Date.t option Stdlib.ref -> (float * float) option Stdlib.ref -> (string * [> `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