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