variant.ml
1 2 3 4 5 6 type 'constructor t = { name : string ; (* the position of the constructor in the type definition, starting from 0 *) rank : int ; constructor : 'constructor }
1 2 3 4 5 6
type 'constructor t = { name : string ; (* the position of the constructor in the type definition, starting from 0 *) rank : int ; constructor : 'constructor }