Values.AttachedDiskMapSourceval to_value :
('a * DiskMap.t list) list ->
[> `Map of
([> `String of 'a ]
* [> `List of
[> `Structure of
(string * [> `String of NonEmptyString.t ]) list ]
list ])
list ]