ocaml/camlp4/test/fixtures/curry-constr.ml

4 lines
62 B
OCaml

type t = A of int
type u = B of t
let f = function B A x -> x