package melange
Module Switch.Case
type ('M, 'T) t = 'M * ('M, 'T) t'and ('M, 'T) t' = {test : ('M, 'T) Expression.t option;consequent : ('M, 'T) Statement.t list;comments : ('M, unit) Syntax.t option;
}Switch.Casetype ('M, 'T) t = 'M * ('M, 'T) t'and ('M, 'T) t' = {test : ('M, 'T) Expression.t option;consequent : ('M, 'T) Statement.t list;comments : ('M, unit) Syntax.t option;}