shithub: mc

ref: 0d7d70e5b1a4b5c7ae618d6d04fb30848b18c08f
dir: /test/generictype.myr/

View raw version 
use std

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

const main = {
	var v

	v = `Some 123
	match v
	| `None:	std.exit(1)
	| `Some 123:	std.exit(0)
	| `Some _:	std.die("Impossible match failure\n")
	;;
	std.exit(60)
}