summaryrefslogtreecommitdiff
path: root/tests/pvar.ur
blob: 6b90e2c0f9fe8da944f53fe69062eb5131636f5e (plain)
1
2
3
4
5
val v1 : variant [A = int, B = float] = make [#A] 1
val v2 : variant [A = int, B = float] = make [#B] 2.3

fun main () = return (match v1 {A = fn n => <xml>A: {[n]}</xml>,
                                B = fn n => <xml>B: {[n]}</xml>})