Values.ShiftCoveragesMapSourceval to_value :
(DayOfWeek.t * CoverageTime.t list) list ->
[> `Map of
([> `Enum of string ]
* [> `List of
[> `Structure of
(string
* [> `Structure of
(string * [> `Integer of HourOfDay.t ]) list ])
list ]
list ])
list ]