Sourceval to_value :
CurrentMetricResult.t list->[> `List of
[> `Structure of
(string
* [> `List of
[> `Structure of
(string
* [> `Double of Value.t| `Structure of
(string
* [> `Enum of string| `String of CurrentMetricId.t ])
list ])
list ]
list| `Structure of
(string
* [> `Enum of string| `String of RoutingExpression.t| `Structure of (string * [> `String of string ]) list ])
list ])
list ]
list ]