Values.FacetsSourceval to_value :
('a * BucketInfo.t) list ->
[> `Map of
([> `String of 'a ]
* [> `Structure of
(string
* [> `List of
[> `Structure of
(string
* [> `Long of Long.t | `String of String_.t ])
list ]
list ])
list ])
list ]