summaryrefslogtreecommitdiff
path: root/test/genericret.myr
blob: 7a597a7496e4f6afbb1ee870ba5b30f08695c916 (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:	-> 42
	;;
	-> 0
}