summaryrefslogtreecommitdiff
path: root/test/genericret.myr
blob: d53de5de53ac6b6aacab4ae2e5d1d28b7e59fcda (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
use std

type t(@a) = union
	`Val @a
	`None
;;

const f = {-> t(int)
	-> `None
}

const main = {
	match f()
	| `None:	std.exit(42)
	;;
	std.exit(0)
}