compilation/flap/tests/03-Typing/38-pattern-matching-02.bad.typing.hopix.human-readable

type t = T

let t : t = match (T<>) { (x : int) -> x }