Values.MessageAttributeMapSourceval to_value :
('a * MessageAttributeValue.t) list ->
[> `Map of
([> `String of 'a ]
* [> `Structure of
(string * [> `Blob of Binary.t | `String of String_.t ]) list ])
list ]