build.ml 219 Bytes
Newer Older
1 2 3 4 5
(* Testing @build attributes. *)

type foo =
  | A
  | B of int
POTTIER Francois's avatar
POTTIER Francois committed
6 7 8 9 10
  | C of foo * foo [@build fun x y -> C (x, y)]

and point =
  { x: int; y: int } [@@build fun x y -> { x; y }]

11
[@@deriving visitors { variety = "map" }]