Sourceval to_value :
Offer.t list->[> `List of
[> `Structure of
(string
* [> `String of OfferId.t| `Structure of
(string
* [> `Structure of
(string
* [> `List of
[> `Structure of
(string * [> `String of String_.t ]) list ]
list| `String of String_.t ])
list ])
list ])
list ]
list ]