shithub: mc

ref: 693647efbb86d842a9edc6e15c8d2420ff14b01c
dir: /test/matchunion.myr/

View raw version 
/* checks that union matching works, at least on the key.
exits with 84. */
type u = union
	`Foo
	`Bar
	`Baz
	`Quux
;;

const main = {
	var v

	v = `Foo
	match v
	`Bar:
		-> 42
		;;
	`Baz:
		-> 81
		;;
	`Foo:
		-> 84
		;;
	`Quux:
		-> 123
		;;
	;;
}