Values.PrincipalsSourceval to_value :
Principal.t list ->
[> `List of
[> `Structure of
(string
* [> `Structure of
(string * [> `Enum of string | `String of UserId.t ]) list ])
list ]
list ]