expr_info_mapreduce.ml 185 Bytes
Newer Older
1
type 'info expr_node =
2
  | EConst of int
3 4 5 6
  | EAdd of 'info expr * 'info expr

and 'info expr =
  { info: 'info; node: 'info expr_node }
POTTIER Francois's avatar
POTTIER Francois committed
7 8

[@@deriving visitors { variety = "mapreduce" }]