shithub: mc

ref: 49694b6e59491cd5cbea965c9025346f1289d293
dir: /test/generictype.myr/

use std

/* checks that parameterized types work. exits with 0. */
type option(@a) = union
	`Some @a::(tcint,tcnum,tctest)
	`None
;;

const main = {
	var v

	v = `Some 123
	match v
	| `None:	-> 1
	| `Some 123:	-> 0
	;;
	-> 60
}