Ast.exception_to_mapSource constraint 'c exception_to_map = 'c exception_to_mapinherit VisitorsRuntime.mapinherit lident_mapinherit Catala_utils.Marked.pos_mapmethod visit_NotAnException : 'd -> exception_tomethod visit_UnlabeledException : 'd -> exception_tomethod visit_ExceptionToLabel : 'd ->
(lident, Catala_utils.Pos.t) Catala_utils.Marked.t ->
exception_tomethod visit_exception_to : 'd -> exception_to -> exception_to