Source file 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
  }