heptagon/test/bad/bad_merge1.ept
2010-12-15 11:26:30 +01:00

7 lines
125 B
Plaintext

type t = A | B
type tt = C
node t2bool(x: t) returns (b: bool)
let
b = merge x (A-> true) (B-> true) (C-> false)
tel